GCC field with `mail-user-agent' set to 'gnus-user-agent

GCC field with `mail-user-agent' set to 'gnus-user-agent

[Michael Heerdegen]

Hi,

today I tried

  (setq mail-user-agent 'gnus-user-agent)

to avoid the need to start Gnus when I only want to compose some single
mail.  I'm using gnus-message-archive-group being "sent" all the time,
BTW.

If I now do M-x compose-mail without Gnus running, the GCC field is just
"sent", instead of "nnfolder+archive:sent" which I get when I start
composing a message directly form Gnus.  The difference comes from
`gnus-group-prefixed-name', I think.

Ok, no problem so far.  But if I now send the message, I get the
following error:

Debugger entered--Lisp error: (wrong-type-argument listp t)
  nth(2 t)
  (gnus-get-info group)
  (null (gnus-get-info group))
  (and (null (gnus-get-info group)) (eq (car (gnus-server-to-method gnus-message-archive-method)) (car (gnus-server-to-method (gnus-group-method group)))))
  (cond ((and (null (gnus-get-info group)) (eq (car (gnus-server-to-method gnus-message-archive-method)) (car (gnus-server-to-method (gnus-group-method group))))) gnus-message-archive-method) ((gnus-info-method (gnus-get-info group)) (gnus-info-method (gnus-get-info group))) (t (gnus-server-to-method (gnus-group-method group))))
  gnus-inews-group-method("sent")
  (setq method (gnus-inews-group-method group) group (mm-encode-coding-string group (gnus-group-name-charset method group)))
  (while (setq group (pop groups)) (setq method (gnus-inews-group-method group) group (mm-encode-coding-string group (gnus-group-name-charset method group))) (unless (gnus-check-server method) (error "Can't open server %s" (if (stringp method) method (car method)))) (unless (gnus-request-group group t method) (gnus-request-create-group group method)) (setq mml-externalize-attachments (if (stringp gnus-gcc-externalize-attachments) (string-match gnus-gcc-externalize-attachments group) gnus-gcc-externalize-attachments)) (save-excursion (nnheader-set-temp-buffer " *acc*") (setq message-options (with-current-buffer cur message-options)) (insert-buffer-substring cur) (message-encode-message-body) (save-restriction (message-narrow-to-headers) (let* ((mail-parse-charset message-default-charset) (newsgroups-field (save-restriction (message-narrow-to-headers-or-head) (message-fetch-field "Newsgroups"))) (followup-field (save-restriction (message-narrow-to-headers-or-head) (message-fetch-field "Followup-To"))) (group-field-charset (gnus-group-name-charset method (or newsgroups-field #1=""))) (followup-field-charset (gnus-group-name-charset method (or followup-field #1#))) (rfc2047-header-encoding-alist (append (when group-field-charset ...) (when followup-field-charset ...) rfc2047-header-encoding-alist))) (mail-encode-encoded-word-buffer))) (goto-char (point-min)) (when (re-search-forward (concat "^" (regexp-quote mail-header-separator) "$") nil t) (replace-match #1# t t)) (when (or (not (gnus-check-backend-function (quote request-accept-article) group)) (not (setq group-art (gnus-request-accept-article group method t t)))) (gnus-message 1 "Couldn't store article in group %s: %s" group (gnus-status-message method))) (when (stringp method) (setq method (gnus-server-to-method method))) (when (and (listp method) (gnus-native-method-p method)) (setq group (gnus-group-short-name group))) (when (and group-art (gnus-alive-p) (or gnus-gcc-mark-as-read (and (boundp (quote gnus-inews-mark-gcc-as-read)) (symbol-value (quote gnus-inews-mark-gcc-as-read))))) (gnus-group-mark-article-read group (cdr group-art))) (setq options message-options) (with-current-buffer cur (setq message-options options)) (kill-buffer (current-buffer))))
  (progn (message-remove-header "gcc") (widen) (setq groups (message-unquote-tokens (message-tokenize-header gcc " ,"))) (while (setq group (pop groups)) (setq method (gnus-inews-group-method group) group (mm-encode-coding-string group (gnus-group-name-charset method group))) (unless (gnus-check-server method) (error "Can't open server %s" (if (stringp method) method (car method)))) (unless (gnus-request-group group t method) (gnus-request-create-group group method)) (setq mml-externalize-attachments (if (stringp gnus-gcc-externalize-attachments) (string-match gnus-gcc-externalize-attachments group) gnus-gcc-externalize-attachments)) (save-excursion (nnheader-set-temp-buffer " *acc*") (setq message-options (with-current-buffer cur message-options)) (insert-buffer-substring cur) (message-encode-message-body) (save-restriction (message-narrow-to-headers) (let* ((mail-parse-charset message-default-charset) (newsgroups-field (save-restriction ... ...)) (followup-field (save-restriction ... ...)) (group-field-charset (gnus-group-name-charset method ...)) (followup-field-charset (gnus-group-name-charset method ...)) (rfc2047-header-encoding-alist (append ... ... rfc2047-header-encoding-alist))) (mail-encode-encoded-word-buffer))) (goto-char (point-min)) (when (re-search-forward (concat "^" (regexp-quote mail-header-separator) "$") nil t) (replace-match #1="" t t)) (when (or (not (gnus-check-backend-function (quote request-accept-article) group)) (not (setq group-art (gnus-request-accept-article group method t t)))) (gnus-message 1 "Couldn't store article in group %s: %s" group (gnus-status-message method))) (when (stringp method) (setq method (gnus-server-to-method method))) (when (and (listp method) (gnus-native-method-p method)) (setq group (gnus-group-short-name group))) (when (and group-art (gnus-alive-p) (or gnus-gcc-mark-as-read (and (boundp ...) (symbol-value ...)))) (gnus-group-mark-article-read group (cdr group-art))) (setq options message-options) (with-current-buffer cur (setq message-options options)) (kill-buffer (current-buffer)))))
  (if gcc (progn (message-remove-header "gcc") (widen) (setq groups (message-unquote-tokens (message-tokenize-header gcc " ,"))) (while (setq group (pop groups)) (setq method (gnus-inews-group-method group) group (mm-encode-coding-string group (gnus-group-name-charset method group))) (unless (gnus-check-server method) (error "Can't open server %s" (if (stringp method) method (car method)))) (unless (gnus-request-group group t method) (gnus-request-create-group group method)) (setq mml-externalize-attachments (if (stringp gnus-gcc-externalize-attachments) (string-match gnus-gcc-externalize-attachments group) gnus-gcc-externalize-attachments)) (save-excursion (nnheader-set-temp-buffer " *acc*") (setq message-options (with-current-buffer cur message-options)) (insert-buffer-substring cur) (message-encode-message-body) (save-restriction (message-narrow-to-headers) (let* ((mail-parse-charset message-default-charset) (newsgroups-field ...) (followup-field ...) (group-field-charset ...) (followup-field-charset ...) (rfc2047-header-encoding-alist ...)) (mail-encode-encoded-word-buffer))) (goto-char (point-min)) (when (re-search-forward (concat "^" (regexp-quote mail-header-separator) "$") nil t) (replace-match #1="" t t)) (when (or (not (gnus-check-backend-function ... group)) (not (setq group-art ...))) (gnus-message 1 "Couldn't store article in group %s: %s" group (gnus-status-message method))) (when (stringp method) (setq method (gnus-server-to-method method))) (when (and (listp method) (gnus-native-method-p method)) (setq group (gnus-group-short-name group))) (when (and group-art (gnus-alive-p) (or gnus-gcc-mark-as-read (and ... ...))) (gnus-group-mark-article-read group (cdr group-art))) (setq options message-options) (with-current-buffer cur (setq message-options options)) (kill-buffer (current-buffer))))))
  (when gcc (message-remove-header "gcc") (widen) (setq groups (message-unquote-tokens (message-tokenize-header gcc " ,"))) (while (setq group (pop groups)) (setq method (gnus-inews-group-method group) group (mm-encode-coding-string group (gnus-group-name-charset method group))) (unless (gnus-check-server method) (error "Can't open server %s" (if (stringp method) method (car method)))) (unless (gnus-request-group group t method) (gnus-request-create-group group method)) (setq mml-externalize-attachments (if (stringp gnus-gcc-externalize-attachments) (string-match gnus-gcc-externalize-attachments group) gnus-gcc-externalize-attachments)) (save-excursion (nnheader-set-temp-buffer " *acc*") (setq message-options (with-current-buffer cur message-options)) (insert-buffer-substring cur) (message-encode-message-body) (save-restriction (message-narrow-to-headers) (let* ((mail-parse-charset message-default-charset) (newsgroups-field (save-restriction ... ...)) (followup-field (save-restriction ... ...)) (group-field-charset (gnus-group-name-charset method ...)) (followup-field-charset (gnus-group-name-charset method ...)) (rfc2047-header-encoding-alist (append ... ... rfc2047-header-encoding-alist))) (mail-encode-encoded-word-buffer))) (goto-char (point-min)) (when (re-search-forward (concat "^" (regexp-quote mail-header-separator) "$") nil t) (replace-match #1="" t t)) (when (or (not (gnus-check-backend-function (quote request-accept-article) group)) (not (setq group-art (gnus-request-accept-article group method t t)))) (gnus-message 1 "Couldn't store article in group %s: %s" group (gnus-status-message method))) (when (stringp method) (setq method (gnus-server-to-method method))) (when (and (listp method) (gnus-native-method-p method)) (setq group (gnus-group-short-name group))) (when (and group-art (gnus-alive-p) (or gnus-gcc-mark-as-read (and (boundp ...) (symbol-value ...)))) (gnus-group-mark-article-read group (cdr group-art))) (setq options message-options) (with-current-buffer cur (setq message-options options)) (kill-buffer (current-buffer)))))
  (let ((gcc (or gcc (mail-fetch-field "gcc" nil t))) (cur (current-buffer)) groups group method group-art options mml-externalize-attachments) (when gcc (message-remove-header "gcc") (widen) (setq groups (message-unquote-tokens (message-tokenize-header gcc " ,"))) (while (setq group (pop groups)) (setq method (gnus-inews-group-method group) group (mm-encode-coding-string group (gnus-group-name-charset method group))) (unless (gnus-check-server method) (error "Can't open server %s" (if (stringp method) method (car method)))) (unless (gnus-request-group group t method) (gnus-request-create-group group method)) (setq mml-externalize-attachments (if (stringp gnus-gcc-externalize-attachments) (string-match gnus-gcc-externalize-attachments group) gnus-gcc-externalize-attachments)) (save-excursion (nnheader-set-temp-buffer " *acc*") (setq message-options (with-current-buffer cur message-options)) (insert-buffer-substring cur) (message-encode-message-body) (save-restriction (message-narrow-to-headers) (let* ((mail-parse-charset message-default-charset) (newsgroups-field ...) (followup-field ...) (group-field-charset ...) (followup-field-charset ...) (rfc2047-header-encoding-alist ...)) (mail-encode-encoded-word-buffer))) (goto-char (point-min)) (when (re-search-forward (concat "^" (regexp-quote mail-header-separator) "$") nil t) (replace-match #1="" t t)) (when (or (not (gnus-check-backend-function ... group)) (not (setq group-art ...))) (gnus-message 1 "Couldn't store article in group %s: %s" group (gnus-status-message method))) (when (stringp method) (setq method (gnus-server-to-method method))) (when (and (listp method) (gnus-native-method-p method)) (setq group (gnus-group-short-name group))) (when (and group-art (gnus-alive-p) (or gnus-gcc-mark-as-read (and ... ...))) (gnus-group-mark-article-read group (cdr group-art))) (setq options message-options) (with-current-buffer cur (setq message-options options)) (kill-buffer (current-buffer))))))
  (save-restriction (message-narrow-to-headers) (let ((gcc (or gcc (mail-fetch-field "gcc" nil t))) (cur (current-buffer)) groups group method group-art options mml-externalize-attachments) (when gcc (message-remove-header "gcc") (widen) (setq groups (message-unquote-tokens (message-tokenize-header gcc " ,"))) (while (setq group (pop groups)) (setq method (gnus-inews-group-method group) group (mm-encode-coding-string group (gnus-group-name-charset method group))) (unless (gnus-check-server method) (error "Can't open server %s" (if (stringp method) method (car method)))) (unless (gnus-request-group group t method) (gnus-request-create-group group method)) (setq mml-externalize-attachments (if (stringp gnus-gcc-externalize-attachments) (string-match gnus-gcc-externalize-attachments group) gnus-gcc-externalize-attachments)) (save-excursion (nnheader-set-temp-buffer " *acc*") (setq message-options (with-current-buffer cur message-options)) (insert-buffer-substring cur) (message-encode-message-body) (save-restriction (message-narrow-to-headers) (let* (... ... ... ... ... ...) (mail-encode-encoded-word-buffer))) (goto-char (point-min)) (when (re-search-forward (concat "^" ... "$") nil t) (replace-match #1="" t t)) (when (or (not ...) (not ...)) (gnus-message 1 "Couldn't store article in group %s: %s" group (gnus-status-message method))) (when (stringp method) (setq method (gnus-server-to-method method))) (when (and (listp method) (gnus-native-method-p method)) (setq group (gnus-group-short-name group))) (when (and group-art (gnus-alive-p) (or gnus-gcc-mark-as-read ...)) (gnus-group-mark-article-read group (cdr group-art))) (setq options message-options) (with-current-buffer cur (setq message-options options)) (kill-buffer (current-buffer)))))))
  (save-excursion (save-restriction (message-narrow-to-headers) (let ((gcc (or gcc (mail-fetch-field "gcc" nil t))) (cur (current-buffer)) groups group method group-art options mml-externalize-attachments) (when gcc (message-remove-header "gcc") (widen) (setq groups (message-unquote-tokens (message-tokenize-header gcc " ,"))) (while (setq group (pop groups)) (setq method (gnus-inews-group-method group) group (mm-encode-coding-string group (gnus-group-name-charset method group))) (unless (gnus-check-server method) (error "Can't open server %s" (if ... method ...))) (unless (gnus-request-group group t method) (gnus-request-create-group group method)) (setq mml-externalize-attachments (if (stringp gnus-gcc-externalize-attachments) (string-match gnus-gcc-externalize-attachments group) gnus-gcc-externalize-attachments)) (save-excursion (nnheader-set-temp-buffer " *acc*") (setq message-options (with-current-buffer cur message-options)) (insert-buffer-substring cur) (message-encode-message-body) (save-restriction (message-narrow-to-headers) (let* ... ...)) (goto-char (point-min)) (when (re-search-forward ... nil t) (replace-match #1="" t t)) (when (or ... ...) (gnus-message 1 "Couldn't store article in group %s: %s" group ...)) (when (stringp method) (setq method ...)) (when (and ... ...) (setq group ...)) (when (and group-art ... ...) (gnus-group-mark-article-read group ...)) (setq options message-options) (with-current-buffer cur (setq message-options options)) (kill-buffer (current-buffer))))))))
  gnus-inews-do-gcc()
  (progn (gnus-inews-do-gcc))
  (if (or gnus-plugged (not (gnus-agent-any-covered-gcc))) (progn (gnus-inews-do-gcc)))
  (when (or gnus-plugged (not (gnus-agent-any-covered-gcc))) (gnus-inews-do-gcc))
  gnus-agent-possibly-do-gcc()
  run-hooks(message-sent-hook)
  (save-excursion (run-hooks (quote message-sent-hook)))
  (progn (message-do-fcc) (save-excursion (run-hooks (quote message-sent-hook))) (message "Sending...done") (when (and (message-mail-alias-type-p (quote ecomplete)) (not message-inhibit-ecomplete)) (message-put-addresses-in-ecomplete)) (set-buffer-modified-p nil) (delete-auto-save-file-if-necessary t) (message-disassociate-draft) (message-do-send-housekeeping) (message-do-actions message-send-actions) t)
  (if (or dont-barf-on-no-method (and success sent)) (progn (message-do-fcc) (save-excursion (run-hooks (quote message-sent-hook))) (message "Sending...done") (when (and (message-mail-alias-type-p (quote ecomplete)) (not message-inhibit-ecomplete)) (message-put-addresses-in-ecomplete)) (set-buffer-modified-p nil) (delete-auto-save-file-if-necessary t) (message-disassociate-draft) (message-do-send-housekeeping) (message-do-actions message-send-actions) t))
  (when (or dont-barf-on-no-method (and success sent)) (message-do-fcc) (save-excursion (run-hooks (quote message-sent-hook))) (message "Sending...done") (when (and (message-mail-alias-type-p (quote ecomplete)) (not message-inhibit-ecomplete)) (message-put-addresses-in-ecomplete)) (set-buffer-modified-p nil) (delete-auto-save-file-if-necessary t) (message-disassociate-draft) (message-do-send-housekeeping) (message-do-actions message-send-actions) t)
  (let ((alist message-send-method-alist) (success t) elem sent dont-barf-on-no-method (message-options message-options)) (message-options-set-recipient) (while (and success (setq elem (pop alist))) (when (funcall (cadr elem)) (when (and (or (not (memq ... message-sent-message-via)) (message-fetch-field "supersedes") (if (or ... ...) (y-or-n-p ...) (error "Denied posting -- multiple copies"))) (setq success (funcall (caddr elem) arg))) (setq sent t)))) (unless (or sent (not success) (let ((fcc (message-fetch-field "Fcc")) (gcc (message-fetch-field "Gcc"))) (when (or fcc gcc) (or (eq message-allow-no-recipients (quote always)) (and (not ...) (setq dont-barf-on-no-method ...)))))) (error "No methods specified to send by")) (when (or dont-barf-on-no-method (and success sent)) (message-do-fcc) (save-excursion (run-hooks (quote message-sent-hook))) (message "Sending...done") (when (and (message-mail-alias-type-p (quote ecomplete)) (not message-inhibit-ecomplete)) (message-put-addresses-in-ecomplete)) (set-buffer-modified-p nil) (delete-auto-save-file-if-necessary t) (message-disassociate-draft) (message-do-send-housekeeping) (message-do-actions message-send-actions) t))
  message-send(nil)
  (and (message-send arg) (buffer-name buf))
  (if (and (message-send arg) (buffer-name buf)) (progn (message-bury buf) (if message-kill-buffer-on-exit (kill-buffer buf)) (message-do-actions actions) t))
  (when (and (message-send arg) (buffer-name buf)) (message-bury buf) (if message-kill-buffer-on-exit (kill-buffer buf)) (message-do-actions actions) t)
  (let ((buf (current-buffer)) (actions message-exit-actions)) (when (and (message-send arg) (buffer-name buf)) (message-bury buf) (if message-kill-buffer-on-exit (kill-buffer buf)) (message-do-actions actions) t))
  message-send-and-exit(nil)
  call-interactively(message-send-and-exit nil nil)

Have I hit a bug?  Or did I miss something?

Thanks for your help.


Michael.

Re: GCC field with `mail-user-agent' set to 'gnus-user-agent

[Lars Ingebrigtsen]

Michael Heerdegen <michael_heerdegen@web.de> writes:

> Ok, no problem so far.  But if I now send the message, I get the
> following error:

I don't think that setting works unless you have Gnus running.  It could
start Gnus for you, but I'm not sure how useful that would be.

-- 
(domestic pets only, the antidote for overdose, milk.)
  http://lars.ingebrigtsen.no  *  Sent from my Rome

Re: GCC field with `mail-user-agent' set to 'gnus-user-agent

[Michael Heerdegen]

Lars Ingebrigtsen <larsi@gnus.org> writes:

> I don't think that setting works unless you have Gnus running.  It could
> start Gnus for you, but I'm not sure how useful that would be.

Ah, ok, then I can quit trying to get that work... thanks for the
answer.

I don't think it would be appropriate to let it start Gnus as side
effect.

Michael.

Re: GCC field with `mail-user-agent' set to 'gnus-user-agent

[Lars Ingebrigtsen]

Michael Heerdegen <michael_heerdegen@web.de> writes:

> I don't think it would be appropriate to let it start Gnus as side
> effect.

Me neither.  And as it isn't very useful, then, perhaps it should be
removed?  Or at least marked as obsolete?

Does anybody have any opinions on this?

-- 
(domestic pets only, the antidote for overdose, milk.)
  http://lars.ingebrigtsen.no  *  Sent from my Rome

Re: GCC field with `mail-user-agent' set to 'gnus-user-agent

[Katsumi Yamaoka]

Lars Ingebrigtsen wrote:
> Michael Heerdegen <michael_heerdegen@web.de> writes:

>> I don't think it would be appropriate to let it start Gnus as side
>> effect.

> Me neither.  And as it isn't very useful, then, perhaps it should be
> removed?  Or at least marked as obsolete?

> Does anybody have any opinions on this?

How about making `gnus-user-agent' run `message-user-agent' when
Gnus is not alive?

Re: GCC field with `mail-user-agent' set to 'gnus-user-agent

[Lars Ingebrigtsen]

Katsumi Yamaoka <yamaoka@jpl.org> writes:

> How about making `gnus-user-agent' run `message-user-agent' when
> Gnus is not alive?

That's a good idea.  I've now done this.

-- 
(domestic pets only, the antidote for overdose, milk.)
  http://lars.ingebrigtsen.no  *  Sent from my Rome

Re: GCC field with `mail-user-agent' set to 'gnus-user-agent

[Michael Heerdegen]

> > How about making `gnus-user-agent' run `message-user-agent' when
> > Gnus is not alive?
>
> That's a good idea.  I've now done this.

I must say that I'm skeptical about this solution.  I'm new to the Gnus
interna, so maybe I'm missing the point.

But, seemingly, we don't win much comfort with this solution.  More
important, the situation we have is distracting.  The user might think
(like I did) that he gains functionality from Gnus we he sets
mail-user-agent to 'gnus-user-agent.  I, as a user, would not expect
that this only works if I'm already in Gnus.

Just an opinion, of course.  For users which have always a running Gnus
in their Emacs session, your solution makes sense.  For users who only
start Gnus and then quit it after reading, IMO it doesn't.

If you keep the current solution, please try to make the docs a bit
clearer, where appropriate.  E.g. the docstring of `mail-user-agent':

  Valid values include:
  
    [...]
    `gnus-user-agent'     -- like `message-user-agent', but with Gnus
                             paraphernalia, particularly the Gcc: header for
                             archiving.

should then tell the user that he gets the paraphernalia only if Gnus is
running.


Michael.

Re: GCC field with `mail-user-agent' set to 'gnus-user-agent

[Lars Ingebrigtsen]

Michael Heerdegen <michael_heerdegen@web.de> writes:

> I, as a user, would not expect that this only works if I'm already in
> Gnus.

You don't have to be "in" Gnus, but Gnus has to be running.

-- 
(domestic pets only, the antidote for overdose, milk.)
  http://lars.ingebrigtsen.no  *  Sent from my Rome

Re: GCC field with `mail-user-agent' set to 'gnus-user-agent

[Michael Heerdegen]

Lars Ingebrigtsen <larsi@gnus.org> writes:

> > I, as a user, would not expect that this only works if I'm already in
> > Gnus.
>
> You don't have to be "in" Gnus, but Gnus has to be running.

Ok, that's what I guessed, I think.  So, I see that this change makes
sense.  I still would suggest to add a little comment about this to the
docstring of `mail-user-agent', however.


Regards,

Michael.

Re: GCC field with `mail-user-agent' set to 'gnus-user-agent

[Rasmus]

Lars Ingebrigtsen <larsi@gnus.org> writes:

> Michael Heerdegen <michael_heerdegen@web.de> writes:
>
>> I don't think it would be appropriate to let it start Gnus as side
>> effect.
>
> Me neither.  And as it isn't very useful, then, perhaps it should be
> removed?  Or at least marked as obsolete?
>
> Does anybody have any opinions on this?

In my experience, the only/most annoying side effect is that it does not
know where to save mails.  

Could it check if Gnus was running.  If not, save mail somewhere
temporary (say ~/mail/tmp-sent) and run some hook when Gnus is started.

–Rasmus

-- 
Got mashed potatoes. Ain't got no T-Bone. No T-Bone

Re: GCC field with `mail-user-agent' set to 'gnus-user-agent

[Lars Ingebrigtsen]

Michael Heerdegen <michael_heerdegen@web.de> writes:

> Ok, that's what I guessed, I think.  So, I see that this change makes
> sense.  I still would suggest to add a little comment about this to the
> docstring of `mail-user-agent', however.

`define-mail-user-agent' doesn't allow adding comments.  And adding a
comment about the Gnus mail agent to the general variable wouldn't be
very helpful.

-- 
(domestic pets only, the antidote for overdose, milk.)
  http://lars.ingebrigtsen.no  *  Sent from my Rome

Re: GCC field with `mail-user-agent' set to 'gnus-user-agent

[Michael Heerdegen]

Lars Ingebrigtsen <larsi@gnus.org> writes:

> And adding a comment about the Gnus mail agent to the general variable
> wouldn't be very helpful.

What about

  `gnus-user-agent' -- like `message-user-agent', but with Gnus
                       paraphernalia if Gnus is running, particularly
                       the Gcc: header for archiving.

If you think that's still too much, then, shouldn't at least the manual
explain the behavior?


Regards,

Michael.

Re: GCC field with `mail-user-agent' set to 'gnus-user-agent

[Lars Ingebrigtsen]

Michael Heerdegen <michael_heerdegen@web.de> writes:

> What about
>
>   `gnus-user-agent' -- like `message-user-agent', but with Gnus
>                        paraphernalia if Gnus is running, particularly
>                        the Gcc: header for archiving.

Where is this documented?

> If you think that's still too much, then, shouldn't at least the manual
> explain the behavior?

Sure.  I can't find it in the manual at all just now, though...

-- 
(domestic pets only, the antidote for overdose, milk.)
  http://lars.ingebrigtsen.no  *  Sent from my Rome

Re: GCC field with `mail-user-agent' set to 'gnus-user-agent

[Michael Heerdegen]

Lars Ingebrigtsen <larsi@gnus.org> writes:

> > What about
> >
> >   `gnus-user-agent' -- like `message-user-agent', but with Gnus
> >                        paraphernalia if Gnus is running, particularly
> >                        the Gcc: header for archiving.
>
> Where is this documented?

See the defcustom of `mail-user-agent' in simple.el.

>
> > If you think that's still too much, then, shouldn't at least the manual
> > explain the behavior?
>
> Sure.  I can't find it in the manual at all just now, though...

Right... I didn't notice that the only search hit of `mail-user-agent' in the
Gnus manual is in the history section (11.2.8.6 Oort Gnus).  No
occurrences in the Emacs elisp manual.  There is one match in the Emacs
manual, node "Mail Methods", but no method is explained there in any
way.


Michael.

Re: GCC field with `mail-user-agent' set to 'gnus-user-agent

[Lars Ingebrigtsen]

Michael Heerdegen <michael_heerdegen@web.de> writes:

>> > What about
>> >
>> >   `gnus-user-agent' -- like `message-user-agent', but with Gnus
>> >                        paraphernalia if Gnus is running, particularly
>> >                        the Gcc: header for archiving.
>>
>> Where is this documented?
>
> See the defcustom of `mail-user-agent' in simple.el.

Ah, right.  I somehow missed that one when I grepped for it.  Anyway,
I've amended it to be what you suggested now.

> Right... I didn't notice that the only search hit of `mail-user-agent' in the
> Gnus manual is in the history section (11.2.8.6 Oort Gnus).  No
> occurrences in the Emacs elisp manual.  There is one match in the Emacs
> manual, node "Mail Methods", but no method is explained there in any
> way.

Yeah.  This should probably be documented in the Emacs manual
somewhere...

-- 
(domestic pets only, the antidote for overdose, milk.)
  http://lars.ingebrigtsen.no  *  Sent from my Rome