diff options
| author | Lars Ingebrigtsen | 2016-02-06 16:02:26 +1100 |
|---|---|---|
| committer | Lars Ingebrigtsen | 2016-02-06 16:02:26 +1100 |
| commit | 6816bfffceb0b5de18a2e364dd9aa47c328c34fe (patch) | |
| tree | b222995afeb987a51521b325c3c0e2b934dab4a4 | |
| parent | 691feae283223d94dde45f080f9c934e186dae91 (diff) | |
| download | emacs-6816bfffceb0b5de18a2e364dd9aa47c328c34fe.tar.gz emacs-6816bfffceb0b5de18a2e364dd9aa47c328c34fe.zip | |
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.
| -rw-r--r-- | lisp/gnus/gnus-start.el | 4 |
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 |