Mercurial > emacs

comparison lisp/gnus-msg.el @ 14604:ab3a6813575a

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(gnus-inews-insert-headers): Check whether Sender and From are equal before inserting a Sender header.
author Karl Heuer <kwzh@gnu.org>
date Tue, 20 Feb 1996 19:21:45 +0000
parents cb600acfe4f6
children 7c0be13394a1
comparison
equal deleted inserted replaced
14603:b9daaf52fc01 14604:ab3a6813575a
1134 '(gnus-deletable t face italic) (current-buffer)))))) 1134 '(gnus-deletable t face italic) (current-buffer))))))
1135 (setq headers (cdr headers))) 1135 (setq headers (cdr headers)))
1136 ;; Insert new Sender if the From is strange. 1136 ;; Insert new Sender if the From is strange.
1137 (let ((from (mail-fetch-field "from")) 1137 (let ((from (mail-fetch-field "from"))
1138 (sender (mail-fetch-field "sender"))) 1138 (sender (mail-fetch-field "sender")))
1139 (if (and from 1139 (if (and from
1140 (not (string= 1140 (not (string=
1141 (downcase (car (gnus-extract-address-components from))) 1141 (downcase
1142 (car (cdr (gnus-extract-address-components from))))
1142 (downcase (gnus-inews-real-user-address)))) 1143 (downcase (gnus-inews-real-user-address))))
1143 (or (null sender) 1144 (or (null sender)
1144 (not 1145 (not
1145 (string= 1146 (string=
1146 (downcase (car (gnus-extract-address-components sender))) 1147 (downcase
1148 (car (cdr (gnus-extract-address-components sender))))
1147 (downcase (gnus-inews-real-user-address)))))) 1149 (downcase (gnus-inews-real-user-address))))))
1148 (progn 1150 (progn
1149 (goto-char (point-min)) 1151 (goto-char (point-min))
1150 (and (re-search-forward "^Sender:" nil t) 1152 (and (re-search-forward "^Sender:" nil t)
1151 (progn 1153 (progn
1152 (beginning-of-line) 1154 (beginning-of-line)
1153 (insert "Original-") 1155 (insert "Original-")
1154 (beginning-of-line))) 1156 (beginning-of-line)))