[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
bug#49070: [PATCH] Accept list as AFTER argument for message-replace-hea
From: |
Łukasz Stelmach |
Subject: |
bug#49070: [PATCH] Accept list as AFTER argument for message-replace-header |
Date: |
Thu, 17 Jun 2021 11:41:24 +0200 |
* lisp/gnus/message.el (message-replace-header): Facilitate capability
of message-position-on-field to accept multiple headers as AFTERS
argument and make possible to mimic behavioir of message-goto-*
functions with message-replace-header in case the header does not exist.
---
lisp/gnus/message.el | 11 +++++++----
1 file changed, 7 insertions(+), 4 deletions(-)
diff --git a/lisp/gnus/message.el b/lisp/gnus/message.el
index 02db38725a..b788670dc3 100644
--- a/lisp/gnus/message.el
+++ b/lisp/gnus/message.el
@@ -8722,16 +8722,19 @@ Header and body are separated by
`mail-header-separator'."
(defun message-replace-header (header new-value &optional after force)
"Remove HEADER and insert the NEW-VALUE.
-If AFTER, insert after this header. If FORCE, insert new field
-even if NEW-VALUE is empty."
+If AFTER, insert after this header. AFTER may be a list of
+headers. If FORCE, insert new field even if NEW-VALUE is empty."
;; Similar to `nnheader-replace-header' but for message buffers.
(save-excursion
(save-restriction
(message-narrow-to-headers)
(message-remove-header header))
(when (or force (> (length new-value) 0))
- (if after
- (message-position-on-field header after)
+ (when after
+ (if (listp after)
+ (apply 'message-position-on-field
+ (append (list header) after))
+ (message-position-on-field header after))
(message-position-on-field header))
(insert new-value))))
--
2.29.2
- bug#49070: [PATCH] Accept list as AFTER argument for message-replace-header,
Łukasz Stelmach <=