--- a/.emacs-my Fri Apr 01 18:55:36 2016 +0300
+++ b/.emacs-my Fri Apr 01 18:58:28 2016 +0300
@@ -1741,7 +1741,7 @@
(setq field-subject (substring field-subject 0 64)))
(setq file (concat gnus-article-save-directory "/" (format-time-string "%F_%H-%M-%S") "_" field-to "_" field-subject))
(with-temp-file file
- (insert-buffer buf)
+ (insert-buffer-substring buf)
)) )
(add-hook 'message-sent-hook 'my-message-save)
@@ -3096,11 +3096,11 @@
(save-restriction
(narrow-to-region start end)
(goto-char (point-min))
- (replace-string "&" "&")
+ (while (search-forward "&") (replace-match "&"))
(goto-char (point-min))
- (replace-string "<" "<")
+ (while (search-forward "<") (replace-match "<"))
(goto-char (point-min))
- (replace-string ">" ">")
+ (while (search-forward ">") (replace-match ">"))
)))
(defun my-html-charref-from-char (char)