diff options
| author | dickmao <none> | 2021-06-23 00:23:48 +0200 |
|---|---|---|
| committer | Lars Ingebrigtsen <larsi@gnus.org> | 2021-06-23 00:23:48 +0200 |
| commit | 2540701f300144fba8a3871f1f0c046c0ff41c5a (patch) | |
| tree | cccd95c8084136136d2546d4e73991c790bdacc9 /lisp/gnus | |
| parent | 142962a8bd9e1e4e926183a9f68a426ada91cda0 (diff) | |
| download | emacs-2540701f300144fba8a3871f1f0c046c0ff41c5a.tar.gz emacs-2540701f300144fba8a3871f1f0c046c0ff41c5a.tar.bz2 emacs-2540701f300144fba8a3871f1f0c046c0ff41c5a.zip | |
Fix message-replace-header after recent change
* lisp/gnus/message.el (message-replace-header): Restore else
branch removed by mistake in 989de3b824 (bug#49179).
Diffstat (limited to 'lisp/gnus')
| -rw-r--r-- | lisp/gnus/message.el | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/lisp/gnus/message.el b/lisp/gnus/message.el index 0c027ca2905..69e2c5cbbc1 100644 --- a/lisp/gnus/message.el +++ b/lisp/gnus/message.el @@ -8730,11 +8730,11 @@ headers. If FORCE, insert new field even if NEW-VALUE is empty." (message-narrow-to-headers) (message-remove-header header)) (when (or force (> (length new-value) 0)) - (when after - (if (listp after) - (apply #'message-position-on-field - (append (list header) after)) - (message-position-on-field header after)) + (if after + (apply #'message-position-on-field header + (if (listp after) + after + (list after))) (message-position-on-field header)) (insert new-value)))) |