diff options
| author | Lars Ingebrigtsen | 2016-03-04 11:52:26 +0000 |
|---|---|---|
| committer | Lars Ingebrigtsen | 2016-03-04 11:53:58 +0000 |
| commit | 6db1a873d5dbf13bf30376b16bcd83ebda269adc (patch) | |
| tree | 196bdecf7d29a635c9546dd174a7eeb9cd4a5fab | |
| parent | 620951fe22a6ecc2edc1f78d961f52566a7fe2b6 (diff) | |
| download | emacs-6db1a873d5dbf13bf30376b16bcd83ebda269adc.tar.gz emacs-6db1a873d5dbf13bf30376b16bcd83ebda269adc.zip | |
Fix insertion of edited servers in the dribble file
* lisp/gnus/gnus-srvr.el (gnus-server-update-server): Don't
insert explicit newlines, because they're quoted (bug#22903).
Backport:
(cherry picked from commit ca4e30058eba0531f38fff75f14734acffab84ea)
| -rw-r--r-- | lisp/gnus/gnus-srvr.el | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lisp/gnus/gnus-srvr.el b/lisp/gnus/gnus-srvr.el index 7afd0539f72..5874bd76085 100644 --- a/lisp/gnus/gnus-srvr.el +++ b/lisp/gnus/gnus-srvr.el | |||
| @@ -389,7 +389,7 @@ The following commands are available: | |||
| 389 | (when entry | 389 | (when entry |
| 390 | (gnus-dribble-enter | 390 | (gnus-dribble-enter |
| 391 | (concat "(gnus-server-set-info \"" server "\" '" | 391 | (concat "(gnus-server-set-info \"" server "\" '" |
| 392 | (gnus-prin1-to-string (cdr entry)) ")\n") | 392 | (gnus-prin1-to-string (cdr entry)) ")") |
| 393 | (concat "^(gnus-server-set-info \"" (regexp-quote server) "\""))) | 393 | (concat "^(gnus-server-set-info \"" (regexp-quote server) "\""))) |
| 394 | (when (or entry oentry) | 394 | (when (or entry oentry) |
| 395 | ;; Buffer may be narrowed. | 395 | ;; Buffer may be narrowed. |