emacs-elpa-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[elpa] externals/debbugs 40fc893 295/311: Fix From addresses in debbugs-


From: Stefan Monnier
Subject: [elpa] externals/debbugs 40fc893 295/311: Fix From addresses in debbugs-gnu
Date: Sun, 29 Nov 2020 18:42:33 -0500 (EST)

branch: externals/debbugs
commit 40fc893f28a6a8e2ec6b6ab83423615cea7705a4
Author: Lars Ingebrigtsen <larsi@gnus.org>
Commit: Lars Ingebrigtsen <larsi@gnus.org>

    Fix From addresses in debbugs-gnu
    
    * packages/debbugs/debbugs-gnu.el: Decode From addresses found in patches.
---
 debbugs-gnu.el | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/debbugs-gnu.el b/debbugs-gnu.el
index 498202f..b50f8fe 100644
--- a/debbugs-gnu.el
+++ b/debbugs-gnu.el
@@ -2492,8 +2492,8 @@ If SELECTIVELY, query the user before applying the patch."
                   (quoted-printable-decode-region (point-min) (point-max))))
            (setq patch-subject
                  (or (gnus-fetch-field "subject") patch-subject))
-           (setq patch-from
-                 (or (gnus-fetch-field "from") patch-from))
+           (when-let ((pf (gnus-fetch-field "from")))
+             (setq patch-from (mail-decode-encoded-address-string pf))
            (goto-char (point-min))
            (when (re-search-forward "^[*] " nil t)
              (let ((start (match-beginning 0)))



reply via email to

[Prev in Thread] Current Thread [Next in Thread]