diff options
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)))) |