bug#27857: add gnus-mail-avoid-redundancy

bug#27857: add gnus-mail-avoid-redundancy

[Lars Ingebrigtsen]

積丹尼 Dan Jacobson <jidanni@jidanni.org> writes:

> User receives a mail containing
>
>    Cc: "tagging@openstreetmap.org" <tagging@openstreetmap.org>
>
> User types
>  S W runs the command gnus-article-wide-reply-with-original
>  S W runs the command gnus-summary-wide-reply-with-original
>
> which puts the same silly line into the proposed response.
>
> Wouldn't it look better just   Cc: tagging@openstreetmap.org ?

Hm...  it would.  Does anybody object to me adding this (and defaulting
the feature to "on")?

The proposal is to remove the "name" part of an address in To/Cc etc
headers if and only if it is identical to the "address" part of an
address.

-- 
(domestic pets only, the antidote for overdose, milk.)
   bloggy blog: http://lars.ingebrigtsen.no

bug#27857: add gnus-mail-avoid-redundancy

[Robert Pluim]

Lars Ingebrigtsen <larsi@gnus.org> writes:

> 積丹尼 Dan Jacobson <jidanni@jidanni.org> writes:
>
>> User receives a mail containing
>>
>>    Cc: "tagging@openstreetmap.org" <tagging@openstreetmap.org>
>>
>> User types
>>  S W runs the command gnus-article-wide-reply-with-original
>>  S W runs the command gnus-summary-wide-reply-with-original
>>
>> which puts the same silly line into the proposed response.
>>
>> Wouldn't it look better just   Cc: tagging@openstreetmap.org ?
>
> Hm...  it would.  Does anybody object to me adding this (and defaulting
> the feature to "on")?

No objection from me, thereʼs zero information loss. Vigorous
applause, more like.

> The proposal is to remove the "name" part of an address in To/Cc etc
> headers if and only if it is identical to the "address" part of an
> address.

Yes. From memory, various versions of outlook were pretty good (bad?)
at generating this kind of header, sometimes with a liberal sprinkling
of ' and/or "

Robert

bug#27857: add gnus-mail-avoid-redundancy

[Lars Ingebrigtsen]

I see that there's already kinda-sorta this feature in Message already,
but it only reacts to an explicit list of addresses.  And it's an
interactive command.  But this means that somebody was annoyed enough a
long time ago by the ugliness that a solution was attempted.  :-)

(defcustom message-recipients-without-full-name
  (list "ding@gnus.org"
	"bugs@gnus.org"
	"emacs-devel@gnu.org"
	"emacs-pretest-bug@gnu.org"
	"bug-gnu-emacs@gnu.org")
  "Mail addresses that have no full name.
Used in `message-simplify-recipients'."
  ;; Maybe the addresses could be extracted from
  ;; `gnus-parameter-to-list-alist'?
  :type '(choice (const :tag "None" nil)
		 (repeat string))
  :version "23.1" ;; No Gnus
  :group 'message-headers)

(defun message-simplify-recipients ()
  (interactive)
  (dolist (hdr '("Cc" "To"))
    (message-replace-header
     hdr
     (mapconcat
      (lambda (addrcomp)
	(if (and message-recipients-without-full-name
		 (string-match
		  (regexp-opt message-recipients-without-full-name)
		  (cadr addrcomp)))
	    (cadr addrcomp)
	  (if (car addrcomp)
	      (message-make-from (car addrcomp) (cadr addrcomp))
	    (cadr addrcomp))))
      (when (message-fetch-field hdr)
	(mail-extract-address-components
	 (message-fetch-field hdr) t))
      ", "))))

-- 
(domestic pets only, the antidote for overdose, milk.)
   bloggy blog: http://lars.ingebrigtsen.no

bug#27857: add gnus-mail-avoid-redundancy

[Lars Ingebrigtsen]

Robert Pluim <rpluim@gmail.com> writes:

> No objection from me, thereʼs zero information loss. Vigorous
> applause, more like.

OK; I've now implemented this.  But without a way to switch it off,
because I can't really imagine anybody wanting to...

-- 
(domestic pets only, the antidote for overdose, milk.)
   bloggy blog: http://lars.ingebrigtsen.no