Gnus development mailing list
 help / color / mirror / Atom feed
* Bug in current v14 - no followup or reply possible
@ 2011-02-23  6:23 Harry Putnam
  2011-02-23  6:49 ` Erik Colson
  2011-02-23  8:05 ` Lars Ingebrigtsen
  0 siblings, 2 replies; 7+ messages in thread
From: Harry Putnam @ 2011-02-23  6:23 UTC (permalink / raw)
  To: ding

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))) (cons (cons buffer (quote ((buffer-name (current-buffer))))) (cons (cons article (quote (gnus-article-reply))) (cons (cons yanked (quote (gnus-article-yanked-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 buffer (quote ((buffer-name (current-buffer))))) (cons (cons article (quote (gnus-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 buffer (quote ((buffer-name (current-buffer))))) (cons article (quote (gnus-article-reply))) (cons yanked (quote (gnus-article-yanked-articles))) (cons group (quote (gnus-newsgroup-name))) (quote ((message-header-setup-hook (copy-sequence message-header-setup-hook)) (mbl mml-buffer-list) (message-mode-hook (copy-sequence message-mode-hook)))))
  (cons (backquote-list* (cons winconf (quote ((current-window-configuration)))) (cons winconf-name (quote (gnus-current-window-configuration))) (cons buffer (quote ((buffer-name (current-buffer))))) (cons article (quote (gnus-article-reply))) (cons yanked (quote (gnus-article-yanked-articles))) (cons group (quote (gnus-newsgroup-name))) (quote ((message-header-setup-hook (copy-sequence message-header-setup-hook)) (mbl mml-buffer-list) (message-mode-hook (copy-sequence message-mode-hook))))) (cons (quote (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 (setq message-newsreader ...)))) (cons (list (quote add-hook) (quote (quote message-mode-hook)) (list (quote if) (backquote-list* ... config ...) (list ... nil ...) (list ... nil ...))) (cons (backquote-list* (quote gnus-alist-pull) (list ... ...) (quote ...)) (cons (list ... ... ...) (cons ... ...))))))))
  (cons (quote let) (cons (backquote-list* (cons winconf (quote ((current-window-configuration)))) (cons winconf-name (quote (gnus-current-window-configuration))) (cons buffer (quote ((buffer-name (current-buffer))))) (cons article (quote (gnus-article-reply))) (cons yanked (quote (gnus-article-yanked-articles))) (cons group (quote (gnus-newsgroup-name))) (quote ((message-header-setup-hook (copy-sequence message-header-setup-hook)) (mbl mml-buffer-list) (message-mode-hook (copy-sequence message-mode-hook))))) (cons (quote (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 ((current-window-configuration)))) (cons winconf-name (quote (gnus-current-window-configuration))) (cons buffer (quote ((buffer-name (current-buffer))))) (cons article (quote (gnus-article-reply))) (cons yanked (quote (gnus-article-yanked-articles))) (cons group (quote (gnus-newsgroup-name))) (quote ((message-header-setup-hook (copy-sequence message-header-setup-hook)) (mbl mml-buffer-list) (message-mode-hook (copy-sequence message-mode-hook))))) (quote (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-extended-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-posting-styles) group)) (list (quote lambda) nil (list (quote let) (quote (gnus-article-copy)) (list (quote gnus-configure-posting-styles) group))))) (backquote-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 string=) group (quote (""))))) (backquote-list* (quote push) (list (quote cons) (quote (intern gnus-draft-meta-information-header)) (list (quote gnus-inews-make-draft) (list (quote or) yanked article))) (quote (message-required-headers)))) (backquote-list* (quote unwind-protect) (cons (quote progn) forms) (list (quote gnus-inews-add-send-actions) winconf buffer article config yanked winconf-name) (quote (setq gnus-message-buffer (current-buffer))) (list (quote set) (quote (make-local-variable (quote gnus-message-group-art))) (list (quote cons) group article)) (list (quote set) (quote (make-local-variable (quote gnus-newsgroup-name))) group) (quote ((when gnus-message-highlight-citation (gnus-message-citation-mode 1)) (gnus-run-hooks (quote gnus-message-setup-hook)) (if (eq major-mode (quote message-mode)) (let ((mbl1 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-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))))) (quote (message-hide-headers)) (quote (gnus-add-buffer)) (backquote-list* (quote gnus-configure-windows) config (quote (t))) (quote ((run-hooks (quote post-command-hook)) (set-buffer-modified-p nil))))
  (\` (let (((\, winconf) (current-window-configuration)) ((\, winconf-name) gnus-current-window-configuration) ((\, buffer) (buffer-name (current-buffer))) ((\, article) gnus-article-reply) ((\, 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))) (lambda nil (let (gnus-article-copy) (gnus-configure-posting-styles (\, group)))))) (gnus-alist-pull (quote (\, (intern gnus-draft-meta-information-header))) message-required-headers) (when (and (\, group) (not (string= (\, group) ""))) (push (cons (intern gnus-draft-meta-information-header) (gnus-inews-make-draft (or (\, yanked) (\, article)))) message-required-headers)) (unwind-protect (progn (\,@ forms)) (gnus-inews-add-send-actions (\, winconf) (\, buffer) (\, article) (\, config) (\, yanked) (\, winconf-name)) (setq gnus-message-buffer (current-buffer)) (set (make-local-variable (quote gnus-message-group-art)) (cons (\, group) (\, article))) (set (make-local-variable (quote gnus-newsgroup-name)) (\, group)) (when gnus-message-highlight-citation (gnus-message-citation-mode 1)) (gnus-run-hooks (quote gnus-message-setup-hook)) (if (eq major-mode (quote message-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-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)))
  (let ((winconf (make-symbol "gnus-setup-message-winconf")) (buffer (make-symbol "gnus-setup-message-buffer")) (article (make-symbol "gnus-setup-message-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-reply) ((\, 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))) (lambda nil (let (gnus-article-copy) (gnus-configure-posting-styles ...))))) (gnus-alist-pull (quote (\, (intern gnus-draft-meta-information-header))) message-required-headers) (when (and (\, group) (not (string= (\, 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 (current-buffer)) (set (make-local-variable (quote gnus-message-group-art)) (cons (\, group) (\, article))) (set (make-local-variable (quote gnus-newsgroup-name)) (\, group)) (when gnus-message-highlight-citation (gnus-message-citation-mode 1)) (gnus-run-hooks (quote gnus-message-setup-hook)) (if (eq major-mode (quote message-mode)) (let ((mbl1 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-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-message-winconf")) (buffer (make-symbol "gnus-setup-message-buffer")) (article (make-symbol "gnus-setup-message-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-reply) ((\, 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 ...)))) (add-hook (quote message-mode-hook) (if (memq (\, config) (quote ...)) (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= ... ""))) (push (cons (intern gnus-draft-meta-information-header) (gnus-inews-make-draft ...)) message-required-headers)) (unwind-protect (progn (\,@ forms)) (gnus-inews-add-send-actions (\, winconf) (\, buffer) (\, article) (\, config) (\, yanked) (\, winconf-name)) (setq gnus-message-buffer (current-buffer)) (set (make-local-variable (quote gnus-message-group-art)) (cons (\, group) (\, article))) (set (make-local-variable (quote gnus-newsgroup-name)) (\, group)) (when gnus-message-highlight-citation (gnus-message-citation-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-list 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 mailing-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-parameter group (quote newsgroup)) mailing-list (when gnus-mailing-list-groups (string-match gnus-mailing-list-groups group)) group (gnus-group-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 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 force-news) (if (save-restriction (article-narrow-to-head) (message-fetch-field "newsgroups")) 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 (quote gnus-inews-add-to-address) pgroup) message-send-actions))) (set-buffer gnus-article-copy) (gnus-msg-treat-broken-reply-to) (message-wide-reply to-address))) (when yank (gnus-inews-yank-articles yank))))
  (gnus-setup-message (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 mailing-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-parameter group (quote newsgroup)) mailing-list (when gnus-mailing-list-groups (string-match gnus-mailing-list-groups group)) group (gnus-group-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 mailing-list) (not to-list) (not to-address))) (if post (message-news (or to-group (and (not ...) group))) (set-buffer gnus-article-copy) (gnus-msg-treat-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-article-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-number))) (gnus-article-yanked-articles yank) (add-to-list gnus-add-to-list)) (gnus-setup-message (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 mailing-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-parameter group (quote newsgroup)) mailing-list (when gnus-mailing-list-groups (string-match gnus-mailing-list-groups group)) group (gnus-group-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 mailing-list) (not to-list) (not to-address))) (if post (message-news (or to-group (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-address))) (when yank (gnus-inews-yank-articles yank)))))
  gnus-post-news(nil "gmane.emacs.gnus.general" [77148 "Re: How to load No Gnus?" "Harry Putnam <reader@newsguy.com>" #("Tue, 22 Feb 2011 23:12:39 -0600" 0 1 (gnus-time (19812 38727))) "<87sjvfmj08.fsf@newsguy.com>" "<87hbbvg8nx.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-newsgroup-name headers gnus-article-buffer yank nil force-news) (gnus-summary-handle-replysign))
  gnus-summary-followup((77148) nil)
  gnus-summary-followup-with-original(nil)
  call-interactively(gnus-summary-followup-with-original nil nil)




^ permalink raw reply	[flat|nested] 7+ messages in thread
end of thread, other threads:[~2011-02-23 16:50 UTC | newest]

Thread overview: 7+ messages (download: mbox.gz / follow: Atom feed)
-- links below jump to the message on this page --
2011-02-23  6:23 Bug in current v14 - no followup or reply possible Harry Putnam
2011-02-23  6:49 ` Erik Colson
2011-02-23 15:50   ` Harry Putnam
2011-02-23 15:57     ` Erik Colson
2011-02-23 16:50       ` Harry Putnam
2011-02-23  8:05 ` Lars Ingebrigtsen
2011-02-23 16:05   ` Harry Putnam

This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for NNTP newsgroup(s).