[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
bug#11514: 24.0.97; gnus-user-agent no longer sets up Gcc
From: |
Katsumi Yamaoka |
Subject: |
bug#11514: 24.0.97; gnus-user-agent no longer sets up Gcc |
Date: |
Tue, 22 May 2012 08:29:09 +0900 |
User-agent: |
Gnus/5.130006 (真 Gnus v0.6) Emacs/24.1.50 (i686-pc-cygwin) |
Sven Joachim wrote:
> On 2012-05-18 23:23 +0200, Romain Francoise wrote:
>> If you put the following in /tmp/foo.el:
>>
>> (setq mail-user-agent 'gnus-user-agent
>> gnus-message-archive-group "nnimap+foo:Sent")
>>
>> then start Emacs with `emacs -Q -l /tmp/foo.el' then do `C-x m', the
>> resulting Message buffer doesn't have a Gcc header. In Emacs 23 and
>> 24.0.92, the Gcc header was (correctly, I think) added to the buffer.
>>
>> Note: whether or not Gnus is started beforehand doesn't make a difference.
This is the issue of only a case where Gnus is running, since
Gcc is Gnus' feature and the `gnus-user-agent' agent behaves
like the `message-user-agent' agent now if Gnus is not alive:
2012-02-09 Lars Ingebrigtsen <larsi@gnus.org>
* gnus-msg.el (gnus-msg-mail): Use `message-mail' if Gnus isn't
running.
(So, why one uses `C-x m' rather than `m'? Ok, he mey be in a
non-Gnus window.)
> This seems to have been introduced by the following change in the
> emacs-24 branch:
> ,----
>| revno: 107813
>| author: Lars Magne Ingebrigtsen <larsi@gnus.org>
>| committer: Katsumi Yamaoka <yamaoka@jpl.org>
>| branch nick: emacs-24
>| timestamp: Wed 2012-04-11 22:31:16 +0000
>| message:
>| gnus-art.el (article-wash-html): Fix non-ASCII characters when
>| washing HTML (bug#7410).
>| gnus-msg.el (gnus-inews-insert-gcc): Protect against when we don't
>| have a group name.
>| gnus-start.el (gnus-read-newsrc-el-file): Protect against broken
>| .newsrc.el files.
> `----
> The diff for gnus-msg.el is this:
> === modified file 'lisp/gnus/gnus-msg.el'
> --- lisp/gnus/gnus-msg.el 2012-03-14 22:15:04 +0000
> +++ lisp/gnus/gnus-msg.el 2012-04-11 22:31:16 +0000
> @@ -1670,11 +1670,13 @@ this is a reply."
> (not
> (setq result
> (cond
> - ((stringp (caar var))
> + ((and group
> + (stringp (caar var)))
> ;; Regexp.
> (when (string-match (caar var) group)
> (cdar var)))
> - ((functionp (car var))
> + ((and group
> + (functionp (car var)))
> ;; Function.
> (funcall (car var) group))
> (t
> It corresponds to commit bf5aff3ff7c87 in the no-gnus branch in Gnus
> git.
Reverting this change does not help. I believe the right fix is
to modify `gnus-msg-mail' so as to bind `gnus-newsgroup-name' to
a string like `gnus-group-mail' does. Fixed in the emacs-24 branch.