diff options
| author | Lars Ingebrigtsen | 2016-03-04 11:52:26 +0000 |
|---|---|---|
| committer | Lars Ingebrigtsen | 2016-03-04 11:52:26 +0000 |
| commit | ca4e30058eba0531f38fff75f14734acffab84ea (patch) | |
| tree | 7fc80e79430de4b419c901237b04a942525e0c75 | |
| parent | 5671c32c133cc745b908abf3a6891bd8f6d658b5 (diff) | |
| download | emacs-ca4e30058eba0531f38fff75f14734acffab84ea.tar.gz emacs-ca4e30058eba0531f38fff75f14734acffab84ea.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).
| -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 35a38826a2c..30c7debc8e5 100644 --- a/lisp/gnus/gnus-srvr.el +++ b/lisp/gnus/gnus-srvr.el | |||
| @@ -387,7 +387,7 @@ The following commands are available: | |||
| 387 | (when entry | 387 | (when entry |
| 388 | (gnus-dribble-enter | 388 | (gnus-dribble-enter |
| 389 | (concat "(gnus-server-set-info \"" server "\" '" | 389 | (concat "(gnus-server-set-info \"" server "\" '" |
| 390 | (gnus-prin1-to-string (cdr entry)) ")\n") | 390 | (gnus-prin1-to-string (cdr entry)) ")") |
| 391 | (concat "^(gnus-server-set-info \"" (regexp-quote server) "\""))) | 391 | (concat "^(gnus-server-set-info \"" (regexp-quote server) "\""))) |
| 392 | (when (or entry oentry) | 392 | (when (or entry oentry) |
| 393 | ;; Buffer may be narrowed. | 393 | ;; Buffer may be narrowed. |