# HG changeset patch
# User Oleksandr Gavenko <gavenkoa@gmail.com>
# Date 1459526308 -10800
# Node ID 444f477bf77f65734ceb57a040f7c723d3010df7
# Parent  3dec99863e5d6517729f33114464bc98a278c4e6
Fix: Warning: `... is for interactive use only; use `...' instead.

diff -r 3dec99863e5d -r 444f477bf77f .emacs-my
--- 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 "&" "&amp;")
+      (while (search-forward "&") (replace-match "&amp;"))
       (goto-char (point-min))
-      (replace-string "<" "&lt;")
+      (while (search-forward "<") (replace-match "&lt;"))
       (goto-char (point-min))
-      (replace-string ">" "&gt;")
+      (while (search-forward ">") (replace-match "&gt;"))
       )))
 
 (defun my-html-charref-from-char (char)