From: Sam Steingold <sds@gnu.org>
Date: Tue, 26 Jul 2022 18:02:49 +0000 (-0400)
Subject: avoid error when message-fetch-field returns nil
X-Git-Tag: archive/raspbian/1%29.2+1-2+rpi1^2~5^2~16^2~1886^2~741
X-Git-Url: https://dgit.raspbian.org/?a=commitdiff_plain;h=1e3a7bf69d05dbbe5c853780f18caf81f1e22d32;p=emacs.git

avoid error when message-fetch-field returns nil

* gnus-art.el (article-hide-boring-headers): Use "" when
  `message-fetch-field' returns `nil'
---

diff --git a/lisp/gnus/gnus-art.el b/lisp/gnus/gnus-art.el
index e28d84e06fe..18baf982b2b 100644
--- a/lisp/gnus/gnus-art.el
+++ b/lisp/gnus/gnus-art.el
@@ -1987,8 +1987,8 @@ always hide."
 		  (gnus-article-hide-header "cc"))))
 	     ((eq elem 'followup-to)
 	      (when (string-equal-ignore-case
-		     (message-fetch-field "followup-to")
-		     (message-fetch-field "newsgroups"))
+		     (or (message-fetch-field "followup-to") "")
+		     (or (message-fetch-field "newsgroups") ""))
 		(gnus-article-hide-header "followup-to")))
 	     ((eq elem 'reply-to)
 	      (if (gnus-group-find-parameter