From: Karl Heuer <kwzh@gnu.org>
Date: Tue, 20 Feb 1996 19:21:45 +0000 (+0000)
Subject: (gnus-inews-insert-headers): Check whether Sender
X-Git-Tag: emacs-19.34~1256
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=a915dc6d70636947f168d634495a1a84f28fdc6b;p=emacs.git

(gnus-inews-insert-headers): Check whether Sender
and From are equal before inserting a Sender header.
---

diff --git a/lisp/gnus-msg.el b/lisp/gnus-msg.el
index 2e182e6a97d..6756b9e1c52 100644
--- a/lisp/gnus-msg.el
+++ b/lisp/gnus-msg.el
@@ -1136,17 +1136,19 @@ Headers in `gnus-required-headers' will be generated."
     ;; Insert new Sender if the From is strange. 
     (let ((from (mail-fetch-field "from"))
 	  (sender (mail-fetch-field "sender")))
-      (if (and from 
+      (if (and from
 	       (not (string=
-		     (downcase (car (gnus-extract-address-components from)))
+		     (downcase
+		      (car (cdr (gnus-extract-address-components from))))
 		     (downcase (gnus-inews-real-user-address))))
 	       (or (null sender)
-		   (not 
+		   (not
 		    (string=
-		     (downcase (car (gnus-extract-address-components sender)))
+		     (downcase
+		      (car (cdr (gnus-extract-address-components sender))))
 		     (downcase (gnus-inews-real-user-address))))))
 	  (progn
-	    (goto-char (point-min))    
+	    (goto-char (point-min))
 	    (and (re-search-forward "^Sender:" nil t)
 		 (progn
 		   (beginning-of-line)