aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--lisp/gnus/gnus-start.el4
1 files changed, 3 insertions, 1 deletions
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."
862 (goto-char (match-beginning 0)) 862 (goto-char (match-beginning 0))
863 (delete-region (point-at-bol) end)))) 863 (delete-region (point-at-bol) end))))
864 (goto-char (point-max)) 864 (goto-char (point-max))
865 (insert string "\n") 865 ;; Make sure that each dribble entry is a single line, so that
866 ;; the "remove" code above works.
867 (insert (replace-regexp-in-string "\n" "\\\\n" string) "\n")
866 ;; This has been commented by Josh Huber <huber@alum.wpi.edu> 868 ;; This has been commented by Josh Huber <huber@alum.wpi.edu>
867 ;; It causes problems with both XEmacs and Emacs 21, and doesn't 869 ;; It causes problems with both XEmacs and Emacs 21, and doesn't
868 ;; seem to be of much value. (FIXME: remove this after we make sure 870 ;; seem to be of much value. (FIXME: remove this after we make sure