From: Lars Ingebrigtsen <larsi@gnus.org>
Date: Fri, 12 Jul 2019 14:07:43 +0000 (+0200)
Subject: Remove initial and trailing whitespace in message-fetch-field
X-Git-Tag: emacs-27.0.90~1985
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=8179cbff9ed37e7d8892643859adfad448ae1c7a;p=emacs.git

Remove initial and trailing whitespace in message-fetch-field

* lisp/gnus/message.el (message-fetch-field): Remove initial and
trailing whitespace.
---

diff --git a/lisp/gnus/message.el b/lisp/gnus/message.el
index db23217081d..3f190ed6517 100644
--- a/lisp/gnus/message.el
+++ b/lisp/gnus/message.el
@@ -1987,6 +1987,8 @@ is used by default."
 
 (defun message-fetch-field (header &optional not-all)
   "The same as `mail-fetch-field', only remove all newlines.
+Surrounding whitespace is also removed.
+
 The buffer is expected to be narrowed to just the header of the message;
 see `message-narrow-to-headers-or-head'."
   (let* ((inhibit-point-motion-hooks t)
@@ -1994,7 +1996,9 @@ see `message-narrow-to-headers-or-head'."
     (when value
       (while (string-match "\n[\t ]+" value)
 	(setq value (replace-match " " t t value)))
-      value)))
+      ;; If the initial or final line is blank (just a newline), then
+      ;; we have initial or trailing white space; remove it.
+      (string-trim value))))
 
 (defun message-field-value (header &optional not-all)
   "The same as `message-fetch-field', only narrow to the headers first."