From: Lars Ingebrigtsen Date: Sat, 6 Feb 2016 05:02:26 +0000 (+1100) Subject: Ensure that Gnus dribble handling allows removing entries X-Git-Tag: emacs-25.0.91~72 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=6816bfffceb0b5de18a2e364dd9aa47c328c34fe;p=emacs.git Ensure that Gnus dribble handling allows removing entries * lisp/gnus/gnus-start.el (gnus-dribble-enter): Ensure that each entry is on a single line. --- diff --git a/lisp/gnus/gnus-start.el b/lisp/gnus/gnus-start.el index 10f93d8e526..34a5ff6cbac 100644 --- a/lisp/gnus/gnus-start.el +++ b/lisp/gnus/gnus-start.el @@ -862,7 +862,9 @@ If REGEXP is given, lines that match it will be deleted." (goto-char (match-beginning 0)) (delete-region (point-at-bol) end)))) (goto-char (point-max)) - (insert string "\n") + ;; Make sure that each dribble entry is a single line, so that + ;; the "remove" code above works. + (insert (replace-regexp-in-string "\n" "\\\\n" string) "\n") ;; This has been commented by Josh Huber ;; It causes problems with both XEmacs and Emacs 21, and doesn't ;; seem to be of much value. (FIXME: remove this after we make sure