Mercurial Mercurial > dot-emacs / changeset
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | raw | zip | gz | bz2 | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Fix: Warning: `... is for interactive use only; use `...' instead.
authorOleksandr Gavenko <gavenkoa@gmail.com>
Fri, 01 Apr 2016 18:58:28 +0300
changeset 1388 444f477bf77f
parent 1387 3dec99863e5d
child 1389 6004ef18bbe2
Fix: Warning: `... is for interactive use only; use `...' instead.
.emacs-my file | annotate | diff | comparison | revisions 
--- 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)
dot-emacs