From mboxrd@z Thu Jan 1 00:00:00 1970 X-Msuck: nntp://news.gmane.io/gmane.emacs.gnus.general/77149 Path: news.gmane.org!not-for-mail From: Harry Putnam Newsgroups: gmane.emacs.gnus.general Subject: Bug in current v14 - no followup or reply possible Date: Wed, 23 Feb 2011 00:23:32 -0600 Organization: Still searching... Message-ID: <87ei6zs1zv.fsf@newsguy.com> NNTP-Posting-Host: lo.gmane.org Mime-Version: 1.0 Content-Type: text/plain Content-Transfer-Encoding: quoted-printable X-Trace: dough.gmane.org 1298442303 7418 80.91.229.12 (23 Feb 2011 06:25:03 GMT) X-Complaints-To: usenet@dough.gmane.org NNTP-Posting-Date: Wed, 23 Feb 2011 06:25:03 +0000 (UTC) To: ding@gnus.org Original-X-From: ding-owner+M25482@lists.math.uh.edu Wed Feb 23 07:24:53 2011 Return-path: Envelope-to: ding-account@gmane.org Original-Received: from util0.math.uh.edu ([129.7.128.18]) by lo.gmane.org with esmtp (Exim 4.69) (envelope-from ) id 1Ps89c-0000Lt-BI for ding-account@gmane.org; Wed, 23 Feb 2011 07:24:53 +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 1Ps88v-00082e-0w; Wed, 23 Feb 2011 00:24:09 -0600 Original-Received: from mx2.math.uh.edu ([129.7.128.33]) by util0.math.uh.edu with esmtps (TLSv1:AES256-SHA:256) (Exim 4.63) (envelope-from ) id 1Ps88i-000829-Bd for ding@lists.math.uh.edu; Wed, 23 Feb 2011 00:23:56 -0600 Original-Received: from quimby.gnus.org ([80.91.231.51]) by mx2.math.uh.edu with esmtp (Exim 4.72) (envelope-from ) id 1Ps88f-0001rR-If for ding@lists.math.uh.edu; Wed, 23 Feb 2011 00:23:55 -0600 Original-Received: from lo.gmane.org ([80.91.229.12]) by quimby.gnus.org with esmtp (Exim 4.72) (envelope-from ) id 1Ps88d-0008Ps-E2 for ding@gnus.org; Wed, 23 Feb 2011 07:23:51 +0100 Original-Received: from list by lo.gmane.org with local (Exim 4.69) (envelope-from ) id 1Ps88c-00006B-Qi for ding@gnus.org; Wed, 23 Feb 2011 07:23:50 +0100 Original-Received: from c-98-215-183-196.hsd1.in.comcast.net ([98.215.183.196]) by main.gmane.org with esmtp (Gmexim 0.1 (Debian)) id 1AlnuQ-0007hv-00 for ; Wed, 23 Feb 2011 07:23:50 +0100 Original-Received: from reader by c-98-215-183-196.hsd1.in.comcast.net with local (Gmexim 0.1 (Debian)) id 1AlnuQ-0007hv-00 for ; Wed, 23 Feb 2011 07:23:50 +0100 X-Injected-Via-Gmane: http://gmane.org/ Original-Lines: 253 Original-X-Complaints-To: usenet@dough.gmane.org X-Gmane-NNTP-Posting-Host: c-98-215-183-196.hsd1.in.comcast.net User-Agent: Gnus/5.110011 (No Gnus v0.11) Emacs/24.0.50 (gnu/linux) Cancel-Lock: sha1:N2/hX/j/E8sTHhlzOPMTeWlmrkY= X-Spam-Score: -1.9 (-) List-ID: Precedence: bulk Xref: news.gmane.org gmane.emacs.gnus.general:77149 Archived-At: I guess no one else besides Steiner and me are noticing this problem, but for me it is thoroughly reproducable so much so that I have to fall back to my older v11 to be able to post at all. Any attemp to follow up or reply in v14 gets the error below in the backtrace: Debugger entered--Lisp error: (void-variable winconf-name) (cons winconf-name (quote (gnus-current-window-configuration))) (cons (cons winconf-name (quote (gnus-current-window-configuration))) (co= ns (cons buffer (quote ((buffer-name (current-buffer))))) (cons (cons artic= le (quote (gnus-article-reply))) (cons (cons yanked (quote (gnus-article-ya= nked-articles))) (cons (cons group (quote (gnus-newsgroup-name))) (quote ((= message-header-setup-hook ...) (mbl mml-buffer-list) (message-mode-hook ...= )))))))) (cons (cons winconf (quote ((current-window-configuration)))) (cons (cons= winconf-name (quote (gnus-current-window-configuration))) (cons (cons buff= er (quote ((buffer-name (current-buffer))))) (cons (cons article (quote (gn= us-article-reply))) (cons (cons yanked (quote (gnus-article-yanked-articles= ))) (cons (cons group (quote ...)) (quote (... ... ...)))))))) (backquote-list* (cons winconf (quote ((current-window-configuration)))) = (cons winconf-name (quote (gnus-current-window-configuration))) (cons buffe= r (quote ((buffer-name (current-buffer))))) (cons article (quote (gnus-arti= cle-reply))) (cons yanked (quote (gnus-article-yanked-articles))) (cons gro= up (quote (gnus-newsgroup-name))) (quote ((message-header-setup-hook (copy-= sequence message-header-setup-hook)) (mbl mml-buffer-list) (message-mode-ho= ok (copy-sequence message-mode-hook))))) (cons (backquote-list* (cons winconf (quote ((current-window-configuratio= n)))) (cons winconf-name (quote (gnus-current-window-configuration))) (cons= buffer (quote ((buffer-name (current-buffer))))) (cons article (quote (gnu= s-article-reply))) (cons yanked (quote (gnus-article-yanked-articles))) (co= ns group (quote (gnus-newsgroup-name))) (quote ((message-header-setup-hook = (copy-sequence message-header-setup-hook)) (mbl mml-buffer-list) (message-m= ode-hook (copy-sequence message-mode-hook))))) (cons (quote (setq mml-buffe= r-list nil)) (cons (quote (add-hook (quote message-header-setup-hook) (quot= e gnus-inews-insert-gcc))) (cons (quote (add-hook (quote message-mode-hook)= (lambda nil (setq message-newsreader ...)))) (cons (list (quote add-hook) = (quote (quote message-mode-hook)) (list (quote if) (backquote-list* ... con= fig ...) (list ... nil ...) (list ... nil ...))) (cons (backquote-list* (qu= ote gnus-alist-pull) (list ... ...) (quote ...)) (cons (list ... ... ...) (= cons ... ...)))))))) (cons (quote let) (cons (backquote-list* (cons winconf (quote ((current-w= indow-configuration)))) (cons winconf-name (quote (gnus-current-window-conf= iguration))) (cons buffer (quote ((buffer-name (current-buffer))))) (cons a= rticle (quote (gnus-article-reply))) (cons yanked (quote (gnus-article-yank= ed-articles))) (cons group (quote (gnus-newsgroup-name))) (quote ((message-= header-setup-hook (copy-sequence message-header-setup-hook)) (mbl mml-buffe= r-list) (message-mode-hook (copy-sequence message-mode-hook))))) (cons (quo= te (setq mml-buffer-list nil)) (cons (quote (add-hook (quote message-header= -setup-hook) (quote gnus-inews-insert-gcc))) (cons (quote (add-hook (quote = message-mode-hook) (lambda nil ...))) (cons (list (quote add-hook) (quote .= ..) (list ... ... ... ...)) (cons (backquote-list* ... ... ...) (cons ... .= ..)))))))) (backquote-list* (quote let) (backquote-list* (cons winconf (quote ((curr= ent-window-configuration)))) (cons winconf-name (quote (gnus-current-window= -configuration))) (cons buffer (quote ((buffer-name (current-buffer))))) (c= ons article (quote (gnus-article-reply))) (cons yanked (quote (gnus-article= -yanked-articles))) (cons group (quote (gnus-newsgroup-name))) (quote ((mes= sage-header-setup-hook (copy-sequence message-header-setup-hook)) (mbl mml-= buffer-list) (message-mode-hook (copy-sequence message-mode-hook))))) (quot= e (setq mml-buffer-list nil)) (quote (add-hook (quote message-header-setup-= hook) (quote gnus-inews-insert-gcc))) (quote (add-hook (quote message-mode-= hook) (lambda nil (setq message-newsreader (setq message-mailer (gnus-exten= ded-version)))))) (list (quote add-hook) (quote (quote message-mode-hook)) = (list (quote if) (backquote-list* (quote memq) config (quote ((quote (reply= -yank reply))))) (list (quote lambda) nil (list (quote gnus-configure-posti= ng-styles) group)) (list (quote lambda) nil (list (quote let) (quote (gnus-= article-copy)) (list (quote gnus-configure-posting-styles) group))))) (back= quote-list* (quote gnus-alist-pull) (list (quote quote) (intern gnus-draft-= meta-information-header)) (quote (message-required-headers))) (list (quote = when) (list (quote and) group (list (quote not) (backquote-list* (quote str= ing=3D) group (quote (""))))) (backquote-list* (quote push) (list (quote co= ns) (quote (intern gnus-draft-meta-information-header)) (list (quote gnus-i= news-make-draft) (list (quote or) yanked article))) (quote (message-require= d-headers)))) (backquote-list* (quote unwind-protect) (cons (quote progn) f= orms) (list (quote gnus-inews-add-send-actions) winconf buffer article conf= ig yanked winconf-name) (quote (setq gnus-message-buffer (current-buffer)))= (list (quote set) (quote (make-local-variable (quote gnus-message-group-ar= t))) (list (quote cons) group article)) (list (quote set) (quote (make-loca= l-variable (quote gnus-newsgroup-name))) group) (quote ((when gnus-message-= highlight-citation (gnus-message-citation-mode 1)) (gnus-run-hooks (quote g= nus-message-setup-hook)) (if (eq major-mode (quote message-mode)) (let ((mb= l1 mml-buffer-list)) (setq mml-buffer-list mbl) (set (make-local-variable .= ..) mbl1) (gnus-make-local-hook (quote kill-buffer-hook)) (gnus-make-local-= hook (quote change-major-mode-hook)) (add-hook (quote change-major-mode-hoo= k) (quote mml-destroy-buffers) nil t) (add-hook (quote kill-buffer-hook) (q= uote mml-destroy-buffers) t t)) (mml-destroy-buffers) (setq mml-buffer-list= mbl))))) (quote (message-hide-headers)) (quote (gnus-add-buffer)) (backquo= te-list* (quote gnus-configure-windows) config (quote (t))) (quote ((run-ho= oks (quote post-command-hook)) (set-buffer-modified-p nil)))) (\` (let (((\, winconf) (current-window-configuration)) ((\, winconf-name= ) gnus-current-window-configuration) ((\, buffer) (buffer-name (current-buf= fer))) ((\, article) gnus-article-reply) ((\, yanked) gnus-article-yanked-a= rticles) ((\, group) gnus-newsgroup-name) (message-header-setup-hook (copy-= sequence message-header-setup-hook)) (mbl mml-buffer-list) (message-mode-ho= ok (copy-sequence message-mode-hook))) (setq mml-buffer-list nil) (add-hook= (quote message-header-setup-hook) (quote gnus-inews-insert-gcc)) (add-hook= (quote message-mode-hook) (lambda nil (setq message-newsreader (setq messa= ge-mailer (gnus-extended-version))))) (add-hook (quote message-mode-hook) (= if (memq (\, config) (quote (reply-yank reply))) (lambda nil (gnus-configur= e-posting-styles (\, group))) (lambda nil (let (gnus-article-copy) (gnus-co= nfigure-posting-styles (\, group)))))) (gnus-alist-pull (quote (\, (intern = gnus-draft-meta-information-header))) message-required-headers) (when (and = (\, group) (not (string=3D (\, group) ""))) (push (cons (intern gnus-draft-= meta-information-header) (gnus-inews-make-draft (or (\, yanked) (\, article= )))) message-required-headers)) (unwind-protect (progn (\,@ forms)) (gnus-i= news-add-send-actions (\, winconf) (\, buffer) (\, article) (\, config) (\,= yanked) (\, winconf-name)) (setq gnus-message-buffer (current-buffer)) (se= t (make-local-variable (quote gnus-message-group-art)) (cons (\, group) (\,= article))) (set (make-local-variable (quote gnus-newsgroup-name)) (\, grou= p)) (when gnus-message-highlight-citation (gnus-message-citation-mode 1)) (= gnus-run-hooks (quote gnus-message-setup-hook)) (if (eq major-mode (quote m= essage-mode)) (let ((mbl1 mml-buffer-list)) (setq mml-buffer-list mbl) (set= (make-local-variable (quote mml-buffer-list)) mbl1) (gnus-make-local-hook = (quote kill-buffer-hook)) (gnus-make-local-hook (quote change-major-mode-ho= ok)) (add-hook (quote change-major-mode-hook) (quote mml-destroy-buffers) n= il t) (add-hook (quote kill-buffer-hook) (quote mml-destroy-buffers) t t)) = (mml-destroy-buffers) (setq mml-buffer-list mbl))) (message-hide-headers) (= gnus-add-buffer) (gnus-configure-windows (\, config) t) (run-hooks (quote p= ost-command-hook)) (set-buffer-modified-p nil))) (let ((winconf (make-symbol "gnus-setup-message-winconf")) (buffer (make-= symbol "gnus-setup-message-buffer")) (article (make-symbol "gnus-setup-mess= age-article")) (yanked (make-symbol "gnus-setup-yanked-articles")) (group (= make-symbol "gnus-setup-message-group"))) (\` (let (((\, winconf) (current-= window-configuration)) ((\, winconf-name) gnus-current-window-configuration= ) ((\, buffer) (buffer-name (current-buffer))) ((\, article) gnus-article-r= eply) ((\, yanked) gnus-article-yanked-articles) ((\, group) gnus-newsgroup= -name) (message-header-setup-hook (copy-sequence message-header-setup-hook)= ) (mbl mml-buffer-list) (message-mode-hook (copy-sequence message-mode-hook= ))) (setq mml-buffer-list nil) (add-hook (quote message-header-setup-hook) = (quote gnus-inews-insert-gcc)) (add-hook (quote message-mode-hook) (lambda = nil (setq message-newsreader (setq message-mailer (gnus-extended-version)))= )) (add-hook (quote message-mode-hook) (if (memq (\, config) (quote (reply-= yank reply))) (lambda nil (gnus-configure-posting-styles (\, group))) (lamb= da nil (let (gnus-article-copy) (gnus-configure-posting-styles ...))))) (gn= us-alist-pull (quote (\, (intern gnus-draft-meta-information-header))) mess= age-required-headers) (when (and (\, group) (not (string=3D (\, group) ""))= ) (push (cons (intern gnus-draft-meta-information-header) (gnus-inews-make-= draft (or ... ...))) message-required-headers)) (unwind-protect (progn (\,@= forms)) (gnus-inews-add-send-actions (\, winconf) (\, buffer) (\, article)= (\, config) (\, yanked) (\, winconf-name)) (setq gnus-message-buffer (curr= ent-buffer)) (set (make-local-variable (quote gnus-message-group-art)) (con= s (\, group) (\, article))) (set (make-local-variable (quote gnus-newsgroup= -name)) (\, group)) (when gnus-message-highlight-citation (gnus-message-cit= ation-mode 1)) (gnus-run-hooks (quote gnus-message-setup-hook)) (if (eq maj= or-mode (quote message-mode)) (let ((mbl1 mml-buffer-list)) (setq mml-buffe= r-list mbl) (set (make-local-variable ...) mbl1) (gnus-make-local-hook (quo= te kill-buffer-hook)) (gnus-make-local-hook (quote change-major-mode-hook))= (add-hook (quote change-major-mode-hook) (quote mml-destroy-buffers) nil t= ) (add-hook (quote kill-buffer-hook) (quote mml-destroy-buffers) t t)) (mml= -destroy-buffers) (setq mml-buffer-list mbl))) (message-hide-headers) (gnus= -add-buffer) (gnus-configure-windows (\, config) t) (run-hooks (quote post-= command-hook)) (set-buffer-modified-p nil)))) (lambda (config &rest forms) (let ((winconf (make-symbol "gnus-setup-mess= age-winconf")) (buffer (make-symbol "gnus-setup-message-buffer")) (article = (make-symbol "gnus-setup-message-article")) (yanked (make-symbol "gnus-setu= p-yanked-articles")) (group (make-symbol "gnus-setup-message-group"))) (\` = (let (((\, winconf) (current-window-configuration)) ((\, winconf-name) gnus= -current-window-configuration) ((\, buffer) (buffer-name (current-buffer)))= ((\, article) gnus-article-reply) ((\, yanked) gnus-article-yanked-article= s) ((\, group) gnus-newsgroup-name) (message-header-setup-hook (copy-sequen= ce message-header-setup-hook)) (mbl mml-buffer-list) (message-mode-hook (co= py-sequence message-mode-hook))) (setq mml-buffer-list nil) (add-hook (quot= e message-header-setup-hook) (quote gnus-inews-insert-gcc)) (add-hook (quot= e message-mode-hook) (lambda nil (setq message-newsreader (setq message-mai= ler ...)))) (add-hook (quote message-mode-hook) (if (memq (\, config) (quot= e ...)) (lambda nil (gnus-configure-posting-styles ...)) (lambda nil (let .= .. ...)))) (gnus-alist-pull (quote (\, (intern gnus-draft-meta-information-= header))) message-required-headers) (when (and (\, group) (not (string=3D .= .. ""))) (push (cons (intern gnus-draft-meta-information-header) (gnus-inew= s-make-draft ...)) message-required-headers)) (unwind-protect (progn (\,@ f= orms)) (gnus-inews-add-send-actions (\, winconf) (\, buffer) (\, article) (= \, config) (\, yanked) (\, winconf-name)) (setq gnus-message-buffer (curren= t-buffer)) (set (make-local-variable (quote gnus-message-group-art)) (cons = (\, group) (\, article))) (set (make-local-variable (quote gnus-newsgroup-n= ame)) (\, group)) (when gnus-message-highlight-citation (gnus-message-citat= ion-mode 1)) (gnus-run-hooks (quote gnus-message-setup-hook)) (if (eq major= -mode (quote message-mode)) (let (...) (setq mml-buffer-list mbl) (set ... = mbl1) (gnus-make-local-hook ...) (gnus-make-local-hook ...) (add-hook ... .= .. nil t) (add-hook ... ... t t)) (mml-destroy-buffers) (setq mml-buffer-li= st mbl))) (message-hide-headers) (gnus-add-buffer) (gnus-configure-windows = (\, config) t) (run-hooks (quote post-command-hook)) (set-buffer-modified-p= nil)))))((cond (yank (quote reply-yank)) (article-buffer (quote reply)) (t= (quote message))) (let* ((group (or group gnus-newsgroup-name)) (charset (= gnus-group-name-charset nil group)) (pgroup group) to-address to-group mail= ing-list to-list newsgroup-p) (when group (setq to-address (gnus-parameter-= to-address group) to-group (gnus-group-find-parameter group (quote to-group= )) to-list (gnus-parameter-to-list group) newsgroup-p (gnus-group-find-para= meter group (quote newsgroup)) mailing-list (when gnus-mailing-list-groups = (string-match gnus-mailing-list-groups group)) group (gnus-group-name-decod= e (gnus-group-real-name group) charset))) (if (or (and to-group (gnus-news-= group-p to-group)) newsgroup-p force-news (and (gnus-news-group-p (or pgrou= p gnus-newsgroup-name) (or header gnus-current-article)) (not mailing-list)= (not to-list) (not to-address))) (if post (message-news (or to-group (and = (not (gnus-virtual-group-p pgroup)) group))) (set-buffer gnus-article-copy)= (gnus-msg-treat-broken-reply-to) (message-followup (if (or newsgroup-p for= ce-news) (if (save-restriction (article-narrow-to-head) (message-fetch-fiel= d "newsgroups")) nil "") to-group))) (if post (progn (message-mail (or to-a= ddress to-list)) (when (and (not to-list) (not to-address) add-to-list) (pu= sh (list (quote gnus-inews-add-to-address) pgroup) message-send-actions))) = (set-buffer gnus-article-copy) (gnus-msg-treat-broken-reply-to) (message-wi= de-reply to-address))) (when yank (gnus-inews-yank-articles yank)))) (gnus-setup-message (cond (yank (quote reply-yank)) (article-buffer (quot= e reply)) (t (quote message))) (let* ((group (or group gnus-newsgroup-name)= ) (charset (gnus-group-name-charset nil group)) (pgroup group) to-address t= o-group mailing-list to-list newsgroup-p) (when group (setq to-address (gnu= s-parameter-to-address group) to-group (gnus-group-find-parameter group (qu= ote to-group)) to-list (gnus-parameter-to-list group) newsgroup-p (gnus-gro= up-find-parameter group (quote newsgroup)) mailing-list (when gnus-mailing-= list-groups (string-match gnus-mailing-list-groups group)) group (gnus-grou= p-name-decode (gnus-group-real-name group) charset))) (if (or (and to-group= (gnus-news-group-p to-group)) newsgroup-p force-news (and (gnus-news-group= -p (or pgroup gnus-newsgroup-name) (or header gnus-current-article)) (not m= ailing-list) (not to-list) (not to-address))) (if post (message-news (or to= -group (and (not ...) group))) (set-buffer gnus-article-copy) (gnus-msg-tre= at-broken-reply-to) (message-followup (if (or newsgroup-p force-news) (if (= save-restriction ... ...) nil "") to-group))) (if post (progn (message-mail= (or to-address to-list)) (when (and (not to-list) (not to-address) add-to-= list) (push (list ... pgroup) message-send-actions))) (set-buffer gnus-arti= cle-copy) (gnus-msg-treat-broken-reply-to) (message-wide-reply to-address))= ) (when yank (gnus-inews-yank-articles yank)))) (let ((gnus-article-reply (and article-buffer (gnus-summary-article-numbe= r))) (gnus-article-yanked-articles yank) (add-to-list gnus-add-to-list)) (g= nus-setup-message (cond (yank (quote reply-yank)) (article-buffer (quote re= ply)) (t (quote message))) (let* ((group (or group gnus-newsgroup-name)) (c= harset (gnus-group-name-charset nil group)) (pgroup group) to-address to-gr= oup mailing-list to-list newsgroup-p) (when group (setq to-address (gnus-pa= rameter-to-address group) to-group (gnus-group-find-parameter group (quote = to-group)) to-list (gnus-parameter-to-list group) newsgroup-p (gnus-group-f= ind-parameter group (quote newsgroup)) mailing-list (when gnus-mailing-list= -groups (string-match gnus-mailing-list-groups group)) group (gnus-group-na= me-decode (gnus-group-real-name group) charset))) (if (or (and to-group (gn= us-news-group-p to-group)) newsgroup-p force-news (and (gnus-news-group-p (= or pgroup gnus-newsgroup-name) (or header gnus-current-article)) (not maili= ng-list) (not to-list) (not to-address))) (if post (message-news (or to-gro= up (and ... group))) (set-buffer gnus-article-copy) (gnus-msg-treat-broken-= reply-to) (message-followup (if (or newsgroup-p force-news) (if ... nil "")= to-group))) (if post (progn (message-mail (or to-address to-list)) (when (= and ... ... add-to-list) (push ... message-send-actions))) (set-buffer gnus= -article-copy) (gnus-msg-treat-broken-reply-to) (message-wide-reply to-addr= ess))) (when yank (gnus-inews-yank-articles yank))))) gnus-post-news(nil "gmane.emacs.gnus.general" [77148 "Re: How to load No = Gnus?" "Harry Putnam " #("Tue, 22 Feb 2011 23:12:39 -06= 00" 0 1 (gnus-time (19812 38727))) "<87sjvfmj08.fsf@newsguy.com>" "<87hbbvg= 8nx.fsf@gmail.com>" 3947 41 "news.gmane.org gmane.emacs.gnus.general:77148"= nil] "*Article gmane.emacs.gnus.general*" (77148) nil nil) (let ((headers (gnus-summary-article-header (gnus-summary-article-number)= )) (gnus-newsgroup-name gnus-newsgroup-name)) (gnus-post-news nil gnus-news= group-name headers gnus-article-buffer yank nil force-news) (gnus-summary-h= andle-replysign)) gnus-summary-followup((77148) nil) gnus-summary-followup-with-original(nil) call-interactively(gnus-summary-followup-with-original nil nil)