From mboxrd@z Thu Jan 1 00:00:00 1970 X-Msuck: nntp://news.gmane.io/gmane.emacs.gnus.general/81279 Path: news.gmane.org!not-for-mail From: Michael Heerdegen Newsgroups: gmane.emacs.gnus.general Subject: GCC field with `mail-user-agent' set to 'gnus-user-agent Date: Thu, 09 Feb 2012 04:30:13 +0100 Message-ID: <87zkcspttm.fsf@web.de> NNTP-Posting-Host: plane.gmane.org Mime-Version: 1.0 Content-Type: text/plain Content-Transfer-Encoding: quoted-printable X-Trace: dough.gmane.org 1328758207 32527 80.91.229.3 (9 Feb 2012 03:30:07 GMT) X-Complaints-To: usenet@dough.gmane.org NNTP-Posting-Date: Thu, 9 Feb 2012 03:30:07 +0000 (UTC) To: ding@lists.math.uh.edu Original-X-From: ding-owner+M29560@lists.math.uh.edu Thu Feb 09 04:30:06 2012 Return-path: Envelope-to: ding-account@gmane.org Original-Received: from util0.math.uh.edu ([129.7.128.18]) by plane.gmane.org with esmtp (Exim 4.69) (envelope-from ) id 1RvKhw-0002I0-0i for ding-account@gmane.org; Thu, 09 Feb 2012 04:30:04 +0100 Original-Received: from localhost ([127.0.0.1] helo=lists.math.uh.edu) by util0.math.uh.edu with smtp (Exim 4.63) (envelope-from ) id 1RvKgz-00081p-CF; Wed, 08 Feb 2012 21:29:05 -0600 Original-Received: from mx1.math.uh.edu ([129.7.128.32]) by util0.math.uh.edu with esmtps (TLSv1:AES256-SHA:256) (Exim 4.63) (envelope-from ) id 1RvKgy-00081g-8t for ding@lists.math.uh.edu; Wed, 08 Feb 2012 21:29:04 -0600 Original-Received: from fmmailgate04.web.de ([217.72.192.242]) by mx1.math.uh.edu with esmtp (Exim 4.76) (envelope-from ) id 1RvKgv-0007d2-Oa for ding@lists.math.uh.edu; Wed, 08 Feb 2012 21:29:04 -0600 Original-Received: from moweb001.kundenserver.de (moweb001.kundenserver.de [172.19.20.114]) by fmmailgate04.web.de (Postfix) with ESMTP id 52FF0713D790 for ; Thu, 9 Feb 2012 04:28:57 +0100 (CET) Original-Received: from snow.dragon ([89.204.139.232]) by smtp.web.de (mrweb001) with ESMTPA (Nemesis) id 0M7blv-1SiBsX3rbb-00xDZm; Thu, 09 Feb 2012 04:28:56 +0100 User-Agent: Gnus/5.13 (Gnus v5.13) Emacs/24.0.93 (gnu/linux) X-Provags-ID: V02:K0:qtf+FHtFgW8RPSERfAPCp0t+PhdHJS5Fm55a+pXgOj8 aoXW9oZKrGf16aLeIxo0rQIOane6pcHeinam1oFpM+Oho9GFcD Wn3yHhYP1jpIlv2iN8rvgWZ8ZyHJfQ73ErOyC1vIr8q443tQrs Z6DyXVHUI4isJACEb42SQiu1CwxsJtiXaBOunH/v8KVUEsneHf ecNJTw1XYmNbGSwegTEuqTh7OgMeaRAdwV3jywT33s= X-Spam-Score: -1.9 (-) List-ID: Precedence: bulk Xref: news.gmane.org gmane.emacs.gnus.general:81279 Archived-At: 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-me= ssage-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-metho= d group))))) gnus-message-archive-method) ((gnus-info-method (gnus-get-info= group)) (gnus-info-method (gnus-get-info group))) (t (gnus-server-to-metho= d (gnus-group-method group)))) gnus-inews-group-method("sent") (setq method (gnus-inews-group-method group) group (mm-encode-coding-stri= ng group (gnus-group-name-charset method group))) (while (setq group (pop groups)) (setq method (gnus-inews-group-method gr= oup) group (mm-encode-coding-string group (gnus-group-name-charset method g= roup))) (unless (gnus-check-server method) (error "Can't open server %s" (i= f (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 gn= us-gcc-externalize-attachments group) gnus-gcc-externalize-attachments)) (s= ave-excursion (nnheader-set-temp-buffer " *acc*") (setq message-options (wi= th-current-buffer cur message-options)) (insert-buffer-substring cur) (mess= age-encode-message-body) (save-restriction (message-narrow-to-headers) (let= * ((mail-parse-charset message-default-charset) (newsgroups-field (save-res= triction (message-narrow-to-headers-or-head) (message-fetch-field "Newsgrou= ps"))) (followup-field (save-restriction (message-narrow-to-headers-or-head= ) (message-fetch-field "Followup-To"))) (group-field-charset (gnus-group-na= me-charset method (or newsgroups-field #1=3D""))) (followup-field-charset (= gnus-group-name-charset method (or followup-field #1#))) (rfc2047-header-en= coding-alist (append (when group-field-charset ...) (when followup-field-ch= arset ...) rfc2047-header-encoding-alist))) (mail-encode-encoded-word-buffe= r))) (goto-char (point-min)) (when (re-search-forward (concat "^" (regexp-q= uote mail-header-separator) "$") nil t) (replace-match #1# t t)) (when (or = (not (gnus-check-backend-function (quote request-accept-article) group)) (n= ot (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-messa= ge method))) (when (stringp method) (setq method (gnus-server-to-method met= hod))) (when (and (listp method) (gnus-native-method-p method)) (setq group= (gnus-group-short-name group))) (when (and group-art (gnus-alive-p) (or gn= us-gcc-mark-as-read (and (boundp (quote gnus-inews-mark-gcc-as-read)) (symb= ol-value (quote gnus-inews-mark-gcc-as-read))))) (gnus-group-mark-article-r= ead group (cdr group-art))) (setq options message-options) (with-current-bu= ffer cur (setq message-options options)) (kill-buffer (current-buffer)))) (progn (message-remove-header "gcc") (widen) (setq groups (message-unquot= e-tokens (message-tokenize-header gcc " ,"))) (while (setq group (pop group= s)) (setq method (gnus-inews-group-method group) group (mm-encode-coding-st= ring group (gnus-group-name-charset method group))) (unless (gnus-check-ser= ver 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-g= cc-externalize-attachments) (string-match gnus-gcc-externalize-attachments = group) gnus-gcc-externalize-attachments)) (save-excursion (nnheader-set-tem= p-buffer " *acc*") (setq message-options (with-current-buffer cur message-o= ptions)) (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-fi= eld (save-restriction ... ...)) (group-field-charset (gnus-group-name-chars= et method ...)) (followup-field-charset (gnus-group-name-charset method ...= )) (rfc2047-header-encoding-alist (append ... ... rfc2047-header-encoding-a= list))) (mail-encode-encoded-word-buffer))) (goto-char (point-min)) (when (= re-search-forward (concat "^" (regexp-quote mail-header-separator) "$") nil= t) (replace-match #1=3D"" t t)) (when (or (not (gnus-check-backend-functio= n (quote request-accept-article) group)) (not (setq group-art (gnus-request= -accept-article group method t t)))) (gnus-message 1 "Couldn't store articl= e in group %s: %s" group (gnus-status-message method))) (when (stringp meth= od) (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 messag= e-options options)) (kill-buffer (current-buffer))))) (if gcc (progn (message-remove-header "gcc") (widen) (setq groups (messag= e-unquote-tokens (message-tokenize-header gcc " ,"))) (while (setq group (p= op groups)) (setq method (gnus-inews-group-method group) group (mm-encode-c= oding-string group (gnus-group-name-charset method group))) (unless (gnus-c= heck-server method) (error "Can't open server %s" (if (stringp method) meth= od (car method)))) (unless (gnus-request-group group t method) (gnus-reques= t-create-group group method)) (setq mml-externalize-attachments (if (string= p gnus-gcc-externalize-attachments) (string-match gnus-gcc-externalize-atta= chments group) gnus-gcc-externalize-attachments)) (save-excursion (nnheader= -set-temp-buffer " *acc*") (setq message-options (with-current-buffer cur m= essage-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-a= list ...)) (mail-encode-encoded-word-buffer))) (goto-char (point-min)) (whe= n (re-search-forward (concat "^" (regexp-quote mail-header-separator) "$") = nil t) (replace-match #1=3D"" t t)) (when (or (not (gnus-check-backend-func= tion ... group)) (not (setq group-art ...))) (gnus-message 1 "Couldn't stor= e article in group %s: %s" group (gnus-status-message method))) (when (stri= ngp 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 opt= ions message-options) (with-current-buffer cur (setq message-options option= s)) (kill-buffer (current-buffer)))))) (when gcc (message-remove-header "gcc") (widen) (setq groups (message-unq= uote-tokens (message-tokenize-header gcc " ,"))) (while (setq group (pop gr= oups)) (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 (c= ar method)))) (unless (gnus-request-group group t method) (gnus-request-cre= ate-group group method)) (setq mml-externalize-attachments (if (stringp gnu= s-gcc-externalize-attachments) (string-match gnus-gcc-externalize-attachmen= ts group) gnus-gcc-externalize-attachments)) (save-excursion (nnheader-set-= temp-buffer " *acc*") (setq message-options (with-current-buffer cur messag= e-options)) (insert-buffer-substring cur) (message-encode-message-body) (sa= ve-restriction (message-narrow-to-headers) (let* ((mail-parse-charset messa= ge-default-charset) (newsgroups-field (save-restriction ... ...)) (followup= -field (save-restriction ... ...)) (group-field-charset (gnus-group-name-ch= arset method ...)) (followup-field-charset (gnus-group-name-charset method = ...)) (rfc2047-header-encoding-alist (append ... ... rfc2047-header-encodin= g-alist))) (mail-encode-encoded-word-buffer))) (goto-char (point-min)) (whe= n (re-search-forward (concat "^" (regexp-quote mail-header-separator) "$") = nil t) (replace-match #1=3D"" t t)) (when (or (not (gnus-check-backend-func= tion (quote request-accept-article) group)) (not (setq group-art (gnus-requ= est-accept-article group method t t)))) (gnus-message 1 "Couldn't store art= icle in group %s: %s" group (gnus-status-message method))) (when (stringp m= ethod) (setq method (gnus-server-to-method method))) (when (and (listp meth= od) (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 (bou= ndp ...) (symbol-value ...)))) (gnus-group-mark-article-read group (cdr gro= up-art))) (setq options message-options) (with-current-buffer cur (setq mes= sage-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-tok= ens (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 m= ethod) (error "Can't open server %s" (if (stringp method) method (car metho= d)))) (unless (gnus-request-group group t method) (gnus-request-create-grou= p group method)) (setq mml-externalize-attachments (if (stringp gnus-gcc-ex= ternalize-attachments) (string-match gnus-gcc-externalize-attachments group= ) gnus-gcc-externalize-attachments)) (save-excursion (nnheader-set-temp-buf= fer " *acc*") (setq message-options (with-current-buffer cur message-option= s)) (insert-buffer-substring cur) (message-encode-message-body) (save-restr= iction (message-narrow-to-headers) (let* ((mail-parse-charset message-defau= lt-charset) (newsgroups-field ...) (followup-field ...) (group-field-charse= t ...) (followup-field-charset ...) (rfc2047-header-encoding-alist ...)) (m= ail-encode-encoded-word-buffer))) (goto-char (point-min)) (when (re-search-= forward (concat "^" (regexp-quote mail-header-separator) "$") nil t) (repla= ce-match #1=3D"" t t)) (when (or (not (gnus-check-backend-function ... grou= p)) (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) (gnu= s-native-method-p method)) (setq group (gnus-group-short-name group))) (whe= n (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-buf= fer (current-buffer)))))) (save-restriction (message-narrow-to-headers) (let ((gcc (or gcc (mail-fe= tch-field "gcc" nil t))) (cur (current-buffer)) groups group method group-a= rt options mml-externalize-attachments) (when gcc (message-remove-header "g= cc") (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-charse= t method group))) (unless (gnus-check-server method) (error "Can't open ser= ver %s" (if (stringp method) method (car method)))) (unless (gnus-request-g= roup group t method) (gnus-request-create-group group method)) (setq mml-ex= ternalize-attachments (if (stringp gnus-gcc-externalize-attachments) (strin= g-match gnus-gcc-externalize-attachments group) gnus-gcc-externalize-attach= ments)) (save-excursion (nnheader-set-temp-buffer " *acc*") (setq message-o= ptions (with-current-buffer cur message-options)) (insert-buffer-substring = cur) (message-encode-message-body) (save-restriction (message-narrow-to-hea= ders) (let* (... ... ... ... ... ...) (mail-encode-encoded-word-buffer))) (= goto-char (point-min)) (when (re-search-forward (concat "^" ... "$") nil t)= (replace-match #1=3D"" t t)) (when (or (not ...) (not ...)) (gnus-message = 1 "Couldn't store article in group %s: %s" group (gnus-status-message metho= d))) (when (stringp method) (setq method (gnus-server-to-method method))) (= when (and (listp method) (gnus-native-method-p method)) (setq group (gnus-g= roup-short-name group))) (when (and group-art (gnus-alive-p) (or gnus-gcc-m= ark-as-read ...)) (gnus-group-mark-article-read group (cdr group-art))) (se= tq 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 grou= p 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-g= roup-name-charset method group))) (unless (gnus-check-server method) (error= "Can't open server %s" (if ... method ...))) (unless (gnus-request-group g= roup t method) (gnus-request-create-group group method)) (setq mml-external= ize-attachments (if (stringp gnus-gcc-externalize-attachments) (string-matc= h 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=3D"" t t)) (when (or ... ...) (gnus-message 1 "Couldn't = store article in group %s: %s" group ...)) (when (stringp method) (setq met= hod ...)) (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 (cur= rent-buffer)))))))) gnus-inews-do-gcc() (progn (gnus-inews-do-gcc)) (if (or gnus-plugged (not (gnus-agent-any-covered-gcc))) (progn (gnus-ine= ws-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-ho= ok))) (message "Sending...done") (when (and (message-mail-alias-type-p (quo= te ecomplete)) (not message-inhibit-ecomplete)) (message-put-addresses-in-e= complete)) (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 mess= age-inhibit-ecomplete)) (message-put-addresses-in-ecomplete)) (set-buffer-m= odified-p nil) (delete-auto-save-file-if-necessary t) (message-disassociate= -draft) (message-do-send-housekeeping) (message-do-actions message-send-act= ions) t)) (when (or dont-barf-on-no-method (and success sent)) (message-do-fcc) (sa= ve-excursion (run-hooks (quote message-sent-hook))) (message "Sending...don= e") (when (and (message-mail-alias-type-p (quote ecomplete)) (not message-i= nhibit-ecomplete)) (message-put-addresses-in-ecomplete)) (set-buffer-modifi= ed-p nil) (delete-auto-save-file-if-necessary t) (message-disassociate-draf= t) (message-do-send-housekeeping) (message-do-actions message-send-actions)= t) (let ((alist message-send-method-alist) (success t) elem sent dont-barf-o= n-no-method (message-options message-options)) (message-options-set-recipie= nt) (while (and success (setq elem (pop alist))) (when (funcall (cadr elem)= ) (when (and (or (not (memq ... message-sent-message-via)) (message-fetch-f= ield "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-al= low-no-recipients (quote always)) (and (not ...) (setq dont-barf-on-no-meth= od ...)))))) (error "No methods specified to send by")) (when (or dont-barf= -on-no-method (and success sent)) (message-do-fcc) (save-excursion (run-hoo= ks (quote message-sent-hook))) (message "Sending...done") (when (and (messa= ge-mail-alias-type-p (quote ecomplete)) (not message-inhibit-ecomplete)) (m= essage-put-addresses-in-ecomplete)) (set-buffer-modified-p nil) (delete-aut= o-save-file-if-necessary t) (message-disassociate-draft) (message-do-send-h= ousekeeping) (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 acti= ons) t)) (when (and (message-send arg) (buffer-name buf)) (message-bury buf) (if m= essage-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-bu= ffer-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.