Re: [Bug: 21.5-b29] backtrace does not appear, gnus

I did some debugging. - the crucial call is (gnus-post-news 'post) - I debugged that in both Xemacsen. Now the line (charset (gnus-group-name-charset nil group)) which gives nil in Xemacs 21.4. But gives in Xemacs 21.5 a backtrace I attach Uwe # bind (standard-output stack-trace-on-signal debug-on-signal stack-trace-on-error debug-on-error) # (unwind-protect ...) string-match(".*" nil) # bind (item alist result group method) gnus-group-name-charset(nil nil) (edebug-after (edebug-before 23) 25 (gnus-group-name-charset nil (edebug-after 0 24 group))) # bind (group) (let* ((group (edebug-after (edebug-before 19) 22 (or (edebug-after 0 20 group) (edebug-after 0 21 gnus-newsgroup-name)))) (charset (edebug-after (edebug-before 23) 25 (gnus-group-name-charset nil (edebug-after 0 24 group)))) (pgroup (edebug-after 0 26 group)) to-address to-group mailing-list to-list newsgroup-p) (edebug-after (edebug-before 27) 55 (when (edebug-after 0 28 group) (edebug-after (edebug-before 29) 54 (setq to-address (edebug-after (edebug-before 30) 32 (gnus-parameter-to-address (edebug-after 0 31 group))) to-group (edebug-after (edebug-before 33) 35 (gnus-group-find-parameter (edebug-after 0 34 group) (quote to-group))) to-list (edebug-after (edebug-before 36) 38 (gnus-parameter-to-list (edebug-after 0 37 group))) newsgroup-p (edebug-after (edebug-before 39) 41 (gnus-group-find-parameter (edebug-after 0 40 group) (quote newsgroup))) mailing-list (edebug-after (edebug-before 42) 48 (when (edebug-after 0 43 gnus-mailing-list-groups) (edebug-after (edebug-before 44) 47 (string-match (edebug-after 0 45 gnus-mailing-list-groups) (edebug-after 0 46 group))))) group (edebug-after (edebug-before 49) 53 (gnus-group-name-decode (edebug-after (edebug-before 50) 51 (gnus-group-real-name group)) (edebug-after 0 52 charset))))))) (edebug-after (edebug-before 56) 162 (if (edebug-after (edebug-before 57) 87 (or (edebug-after (edebug-before 58) 63 (and (edebug-after 0 59 to-group) (edebug-after (edebug-before 60) 62 (gnus-news-group-p (edebug-after 0 61 to-group))))) (edebug-after 0 64 newsgroup-p) (edebug-after 0 65 force-news) (edebug-after (edebug-before 66) 86 (and (edebug-after (edebug-before 67) 76 (gnus-news-group-p (edebug-after (edebug-before 68) 71 (or (edebug-after 0 69 pgroup) (edebug-after 0 70 gnus-newsgroup-name))) (edebug-after (edebug-before 72) 75 (or (edebug-after 0 73 header) (edebug-after 0 74 gnus-current-article))))) (edebug-after (edebug-before 77) 79 (not (edebug-after 0 78 mailing-list))) (edebug-after (edebug-before 80) 82 (not (edebug-after 0 81 to-list))) (edebug-after (edebug-before 83) 85 (not (edebug-after 0 84 to-address))))))) (edebug-after (edebug-before 88) 125 (if (edebug-after 0 89 post) (edebug-after (edebug-before 90) 102 (message-news (edebug-after (edebug-before 91) 101 (or (edebug-after 0 92 to-group) (edebug-after (edebug-before 93) 100 (and (edebug-after (edebug-before 94) 98 (not (edebug-after (edebug-before 95) 97 (gnus-virtual-group-p (edebug-after 0 96 pgroup))))) (edebug-after 0 99 group))))))) (edebug-after (edebug-before 103) 105 (set-buffer (edebug-after 0 104 gnus-article-copy))) (edebug-after (edebug-before 106) 107 (gnus-msg-treat-broken-reply-to)) (edebug-after (edebug-before 108) 124 (message-followup (edebug-after (edebug-before 109) 123 (if (edebug-after (edebug-before 110) 113 (or (edebug-after 0 111 newsgroup-p) (edebug-after 0 112 force-news))) (edebug-after (edebug-before 114) 121 (if (edebug-after (edebug-before 115) 120 (save-restriction (edebug-after (edebug-before 116) 117 (article-narrow-to-head)) (edebug-after (edebug-before 118) 119 (message-fetch-field "newsgroups")))) nil "")) (edebug-after 0 122 to-group))))))) (edebug-after (edebug-before 126) 161 (if (edebug-after 0 127 post) (edebug-after (edebug-before 128) 152 (progn (edebug-after (edebug-before 129) 134 (message-mail (edebug-after (edebug-before 130) 133 (or (edebug-after 0 131 to-address) (edebug-after 0 132 to-list))))) (edebug-after (edebug-before 135) 151 (when (edebug-after (edebug-before 136) 144 (and (edebug-after (edebug-before 137) 139 (not (edebug-after 0 138 to-list))) (edebug-after (edebug-before 140) 142 (not (edebug-after 0 141 to-address))) (edebug-after 0 143 add-to-list))) (edebug-after (edebug-before 145) 150 (push (edebug-after (edebug-before 146) 148 (list (quote gnus-inews-add-to-address) (edebug-after 0 147 pgroup))) (edebug-after 0 149 message-send-actions))))))) (edebug-after (edebug-before 153) 155 (set-buffer (edebug-after 0 154 gnus-article-copy))) (edebug-after (edebug-before 156) 157 (gnus-msg-treat-broken-reply-to)) (edebug-after (edebug-before 158) 160 (message-wide-reply (edebug-after 0 159 to-address))))))) (edebug-after (edebug-before 163) 168 (when (edebug-after 0 164 yank) (edebug-after (edebug-before 165) 167 (gnus-inews-yank-articles (edebug-after 0 166 yank)))))) (edebug-after (edebug-before 18) 169 (let* ((group (edebug-after (edebug-before 19) 22 (or (edebug-after 0 20 group) (edebug-after 0 21 gnus-newsgroup-name)))) (charset (edebug-after (edebug-before 23) 25 (gnus-group-name-charset nil (edebug-after 0 24 group)))) (pgroup (edebug-after 0 26 group)) to-address to-group mailing-list to-list newsgroup-p) (edebug-after (edebug-before 27) 55 (when (edebug-after 0 28 group) (edebug-after (edebug-before 29) 54 (setq to-address (edebug-after (edebug-before 30) 32 (gnus-parameter-to-address (edebug-after 0 31 group))) to-group (edebug-after (edebug-before 33) 35 (gnus-group-find-parameter (edebug-after 0 34 group) (quote to-group))) to-list (edebug-after (edebug-before 36) 38 (gnus-parameter-to-list (edebug-after 0 37 group))) newsgroup-p (edebug-after (edebug-before 39) 41 (gnus-group-find-parameter (edebug-after 0 40 group) (quote newsgroup))) mailing-list (edebug-after (edebug-before 42) 48 (when (edebug-after 0 43 gnus-mailing-list-groups) (edebug-after (edebug-before 44) 47 (string-match (edebug-after 0 45 gnus-mailing-list-groups) (edebug-after 0 46 group))))) group (edebug-after (edebug-before 49) 53 (gnus-group-name-decode (edebug-after (edebug-before 50) 51 (gnus-group-real-name group)) (edebug-after 0 52 charset))))))) (edebug-after (edebug-before 56) 162 (if (edebug-after (edebug-before 57) 87 (or (edebug-after (edebug-before 58) 63 (and (edebug-after 0 59 to-group) (edebug-after (edebug-before 60) 62 (gnus-news-group-p (edebug-after 0 61 to-group))))) (edebug-after 0 64 newsgroup-p) (edebug-after 0 65 force-news) (edebug-after (edebug-before 66) 86 (and (edebug-after (edebug-before 67) 76 (gnus-news-group-p (edebug-after (edebug-before 68) 71 (or (edebug-after 0 69 pgroup) (edebug-after 0 70 gnus-newsgroup-name))) (edebug-after (edebug-before 72) 75 (or (edebug-after 0 73 header) (edebug-after 0 74 gnus-current-article))))) (edebug-after (edebug-before 77) 79 (not (edebug-after 0 78 mailing-list))) (edebug-after (edebug-before 80) 82 (not (edebug-after 0 81 to-list))) (edebug-after (edebug-before 83) 85 (not (edebug-after 0 84 to-address))))))) (edebug-after (edebug-before 88) 125 (if (edebug-after 0 89 post) (edebug-after (edebug-before 90) 102 (message-news (edebug-after (edebug-before 91) 101 (or (edebug-after 0 92 to-group) (edebug-after (edebug-before 93) 100 (and (edebug-after (edebug-before 94) 98 (not (edebug-after (edebug-before 95) 97 (gnus-virtual-group-p (edebug-after 0 96 pgroup))))) (edebug-after 0 99 group))))))) (edebug-after (edebug-before 103) 105 (set-buffer (edebug-after 0 104 gnus-article-copy))) (edebug-after (edebug-before 106) 107 (gnus-msg-treat-broken-reply-to)) (edebug-after (edebug-before 108) 124 (message-followup (edebug-after (edebug-before 109) 123 (if (edebug-after (edebug-before 110) 113 (or (edebug-after 0 111 newsgroup-p) (edebug-after 0 112 force-news))) (edebug-after (edebug-before 114) 121 (if (edebug-after (edebug-before 115) 120 (save-restriction (edebug-after (edebug-before 116) 117 (article-narrow-to-head)) (edebug-after (edebug-before 118) 119 (message-fetch-field "newsgroups")))) nil "")) (edebug-after 0 122 to-group))))))) (edebug-after (edebug-before 126) 161 (if (edebug-after 0 127 post) (edebug-after (edebug-before 128) 152 (progn (edebug-after (edebug-before 129) 134 (message-mail (edebug-after (edebug-before 130) 133 (or (edebug-after 0 131 to-address) (edebug-after 0 132 to-list))))) (edebug-after (edebug-before 135) 151 (when (edebug-after (edebug-before 136) 144 (and (edebug-after (edebug-before 137) 139 (not (edebug-after 0 138 to-list))) (edebug-after (edebug-before 140) 142 (not (edebug-after 0 141 to-address))) (edebug-after 0 143 add-to-list))) (edebug-after (edebug-before 145) 150 (push (edebug-after (edebug-before 146) 148 (list (quote gnus-inews-add-to-address) (edebug-after 0 147 pgroup))) (edebug-after 0 149 message-send-actions))))))) (edebug-after (edebug-before 153) 155 (set-buffer (edebug-after 0 154 gnus-article-copy))) (edebug-after (edebug-before 156) 157 (gnus-msg-treat-broken-reply-to)) (edebug-after (edebug-before 158) 160 (message-wide-reply (edebug-after 0 159 to-address))))))) (edebug-after (edebug-before 163) 168 (when (edebug-after 0 164 yank) (edebug-after (edebug-before 165) 167 (gnus-inews-yank-articles (edebug-after 0 166 yank))))))) (progn (edebug-after (edebug-before 18) 169 (let* ((group (edebug-after (edebug-before 19) 22 (or (edebug-after 0 20 group) (edebug-after 0 21 gnus-newsgroup-name)))) (charset (edebug-after (edebug-before 23) 25 (gnus-group-name-charset nil (edebug-after 0 24 group)))) (pgroup (edebug-after 0 26 group)) to-address to-group mailing-list to-list newsgroup-p) (edebug-after (edebug-before 27) 55 (when (edebug-after 0 28 group) (edebug-after (edebug-before 29) 54 (setq to-address (edebug-after (edebug-before 30) 32 (gnus-parameter-to-address (edebug-after 0 31 group))) to-group (edebug-after (edebug-before 33) 35 (gnus-group-find-parameter (edebug-after 0 34 group) (quote to-group))) to-list (edebug-after (edebug-before 36) 38 (gnus-parameter-to-list (edebug-after 0 37 group))) newsgroup-p (edebug-after (edebug-before 39) 41 (gnus-group-find-parameter (edebug-after 0 40 group) (quote newsgroup))) mailing-list (edebug-after (edebug-before 42) 48 (when (edebug-after 0 43 gnus-mailing-list-groups) (edebug-after (edebug-before 44) 47 (string-match (edebug-after 0 45 gnus-mailing-list-groups) (edebug-after 0 46 group))))) group (edebug-after (edebug-before 49) 53 (gnus-group-name-decode (edebug-after (edebug-before 50) 51 (gnus-group-real-name group)) (edebug-after 0 52 charset))))))) (edebug-after (edebug-before 56) 162 (if (edebug-after (edebug-before 57) 87 (or (edebug-after (edebug-before 58) 63 (and (edebug-after 0 59 to-group) (edebug-after (edebug-before 60) 62 (gnus-news-group-p (edebug-after 0 61 to-group))))) (edebug-after 0 64 newsgroup-p) (edebug-after 0 65 force-news) (edebug-after (edebug-before 66) 86 (and (edebug-after (edebug-before 67) 76 (gnus-news-group-p (edebug-after (edebug-before 68) 71 (or (edebug-after 0 69 pgroup) (edebug-after 0 70 gnus-newsgroup-name))) (edebug-after (edebug-before 72) 75 (or (edebug-after 0 73 header) (edebug-after 0 74 gnus-current-article))))) (edebug-after (edebug-before 77) 79 (not (edebug-after 0 78 mailing-list))) (edebug-after (edebug-before 80) 82 (not (edebug-after 0 81 to-list))) (edebug-after (edebug-before 83) 85 (not (edebug-after 0 84 to-address))))))) (edebug-after (edebug-before 88) 125 (if (edebug-after 0 89 post) (edebug-after (edebug-before 90) 102 (message-news (edebug-after (edebug-before 91) 101 (or (edebug-after 0 92 to-group) (edebug-after (edebug-before 93) 100 (and (edebug-after (edebug-before 94) 98 (not (edebug-after (edebug-before 95) 97 (gnus-virtual-group-p (edebug-after 0 96 pgroup))))) (edebug-after 0 99 group))))))) (edebug-after (edebug-before 103) 105 (set-buffer (edebug-after 0 104 gnus-article-copy))) (edebug-after (edebug-before 106) 107 (gnus-msg-treat-broken-reply-to)) (edebug-after (edebug-before 108) 124 (message-followup (edebug-after (edebug-before 109) 123 (if (edebug-after (edebug-before 110) 113 (or (edebug-after 0 111 newsgroup-p) (edebug-after 0 112 force-news))) (edebug-after (edebug-before 114) 121 (if (edebug-after (edebug-before 115) 120 (save-restriction (edebug-after (edebug-before 116) 117 (article-narrow-to-head)) (edebug-after (edebug-before 118) 119 (message-fetch-field "newsgroups")))) nil "")) (edebug-after 0 122 to-group))))))) (edebug-after (edebug-before 126) 161 (if (edebug-after 0 127 post) (edebug-after (edebug-before 128) 152 (progn (edebug-after (edebug-before 129) 134 (message-mail (edebug-after (edebug-before 130) 133 (or (edebug-after 0 131 to-address) (edebug-after 0 132 to-list))))) (edebug-after (edebug-before 135) 151 (when (edebug-after (edebug-before 136) 144 (and (edebug-after (edebug-before 137) 139 (not (edebug-after 0 138 to-list))) (edebug-after (edebug-before 140) 142 (not (edebug-after 0 141 to-address))) (edebug-after 0 143 add-to-list))) (edebug-after (edebug-before 145) 150 (push (edebug-after (edebug-before 146) 148 (list (quote gnus-inews-add-to-address) (edebug-after 0 147 pgroup))) (edebug-after 0 149 message-send-actions))))))) (edebug-after (edebug-before 153) 155 (set-buffer (edebug-after 0 154 gnus-article-copy))) (edebug-after (edebug-before 156) 157 (gnus-msg-treat-broken-reply-to)) (edebug-after (edebug-before 158) 160 (message-wide-reply (edebug-after 0 159 to-address))))))) (edebug-after (edebug-before 163) 168 (when (edebug-after 0 164 yank) (edebug-after (edebug-before 165) 167 (gnus-inews-yank-articles (edebug-after 0 166 yank)))))))) # (unwind-protect ...) (unwind-protect (progn (edebug-after (edebug-before 18) 169 (let* ((group (edebug-after (edebug-before 19) 22 (or (edebug-after 0 20 group) (edebug-after 0 21 gnus-newsgroup-name)))) (charset (edebug-after (edebug-before 23) 25 (gnus-group-name-charset nil (edebug-after 0 24 group)))) (pgroup (edebug-after 0 26 group)) to-address to-group mailing-list to-list newsgroup-p) (edebug-after (edebug-before 27) 55 (when (edebug-after 0 28 group) (edebug-after (edebug-before 29) 54 (setq to-address (edebug-after (edebug-before 30) 32 (gnus-parameter-to-address (edebug-after 0 31 group))) to-group (edebug-after (edebug-before 33) 35 (gnus-group-find-parameter (edebug-after 0 34 group) (quote to-group))) to-list (edebug-after (edebug-before 36) 38 (gnus-parameter-to-list (edebug-after 0 37 group))) newsgroup-p (edebug-after (edebug-before 39) 41 (gnus-group-find-parameter (edebug-after 0 40 group) (quote newsgroup))) mailing-list (edebug-after (edebug-before 42) 48 (when (edebug-after 0 43 gnus-mailing-list-groups) (edebug-after (edebug-before 44) 47 (string-match (edebug-after 0 45 gnus-mailing-list-groups) (edebug-after 0 46 group))))) group (edebug-after (edebug-before 49) 53 (gnus-group-name-decode (edebug-after (edebug-before 50) 51 (gnus-group-real-name group)) (edebug-after 0 52 charset))))))) (edebug-after (edebug-before 56) 162 (if (edebug-after (edebug-before 57) 87 (or (edebug-after (edebug-before 58) 63 (and (edebug-after 0 59 to-group) (edebug-after (edebug-before 60) 62 (gnus-news-group-p (edebug-after 0 61 to-group))))) (edebug-after 0 64 newsgroup-p) (edebug-after 0 65 force-news) (edebug-after (edebug-before 66) 86 (and (edebug-after (edebug-before 67) 76 (gnus-news-group-p (edebug-after (edebug-before 68) 71 (or (edebug-after 0 69 pgroup) (edebug-after 0 70 gnus-newsgroup-name))) (edebug-after (edebug-before 72) 75 (or (edebug-after 0 73 header) (edebug-after 0 74 gnus-current-article))))) (edebug-after (edebug-before 77) 79 (not (edebug-after 0 78 mailing-list))) (edebug-after (edebug-before 80) 82 (not (edebug-after 0 81 to-list))) (edebug-after (edebug-before 83) 85 (not (edebug-after 0 84 to-address))))))) (edebug-after (edebug-before 88) 125 (if (edebug-after 0 89 post) (edebug-after (edebug-before 90) 102 (message-news (edebug-after (edebug-before 91) 101 (or (edebug-after 0 92 to-group) (edebug-after (edebug-before 93) 100 (and (edebug-after (edebug-before 94) 98 (not (edebug-after (edebug-before 95) 97 (gnus-virtual-group-p (edebug-after 0 96 pgroup))))) (edebug-after 0 99 group))))))) (edebug-after (edebug-before 103) 105 (set-buffer (edebug-after 0 104 gnus-article-copy))) (edebug-after (edebug-before 106) 107 (gnus-msg-treat-broken-reply-to)) (edebug-after (edebug-before 108) 124 (message-followup (edebug-after (edebug-before 109) 123 (if (edebug-after (edebug-before 110) 113 (or (edebug-after 0 111 newsgroup-p) (edebug-after 0 112 force-news))) (edebug-after (edebug-before 114) 121 (if (edebug-after (edebug-before 115) 120 (save-restriction (edebug-after (edebug-before 116) 117 (article-narrow-to-head)) (edebug-after (edebug-before 118) 119 (message-fetch-field "newsgroups")))) nil "")) (edebug-after 0 122 to-group))))))) (edebug-after (edebug-before 126) 161 (if (edebug-after 0 127 post) (edebug-after (edebug-before 128) 152 (progn (edebug-after (edebug-before 129) 134 (message-mail (edebug-after (edebug-before 130) 133 (or (edebug-after 0 131 to-address) (edebug-after 0 132 to-list))))) (edebug-after (edebug-before 135) 151 (when (edebug-after (edebug-before 136) 144 (and (edebug-after (edebug-before 137) 139 (not (edebug-after 0 138 to-list))) (edebug-after (edebug-before 140) 142 (not (edebug-after 0 141 to-address))) (edebug-after 0 143 add-to-list))) (edebug-after (edebug-before 145) 150 (push (edebug-after (edebug-before 146) 148 (list (quote gnus-inews-add-to-address) (edebug-after 0 147 pgroup))) (edebug-after 0 149 message-send-actions))))))) (edebug-after (edebug-before 153) 155 (set-buffer (edebug-after 0 154 gnus-article-copy))) (edebug-after (edebug-before 156) 157 (gnus-msg-treat-broken-reply-to)) (edebug-after (edebug-before 158) 160 (message-wide-reply (edebug-after 0 159 to-address))))))) (edebug-after (edebug-before 163) 168 (when (edebug-after 0 164 yank) (edebug-after (edebug-before 165) 167 (gnus-inews-yank-articles (edebug-after 0 166 yank)))))))) (gnus-inews-add-send-actions gnus-setup-message-winconf gnus-setup-message-buffer gnus-setup-message-article (edebug-after (edebug-before 14) 17 (cond ((edebug-after 0 15 yank) (quote reply-yank)) ((edebug-after 0 16 article-buffer) (quote reply)) (t (quote message)))) gnus-setup-yanked-articles) (setq gnus-message-buffer (current-buffer)) (set (make-local-variable (quote gnus-message-group-art)) (cons gnus-setup-message-group gnus-setup-message-article)) (set (make-local-variable (quote gnus-newsgroup-name)) gnus-setup-message-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))) # bind (message-mode-hook mbl message-header-setup-hook gnus-setup-message-group gnus-setup-yanked-articles gnus-setup-message-article gnus-setup-message-buffer gnus-setup-message-winconf) (let ((gnus-setup-message-winconf (current-window-configuration)) (gnus-setup-message-buffer (buffer-name (current-buffer))) (gnus-setup-message-article gnus-article-reply) (gnus-setup-yanked-articles gnus-article-yanked-articles) (gnus-setup-message-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-header-setup-hook) (quote gnus-inews-insert-archive-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 (edebug-after (edebug-before 14) 17 (cond ((edebug-after 0 15 yank) (quote reply-yank)) ((edebug-after 0 16 article-buffer) (quote reply)) (t (quote message)))) (quote (reply-yank reply))) (lambda nil (gnus-configure-posting-styles gnus-setup-message-group)) (lambda nil (let (gnus-article-copy) (gnus-configure-posting-styles gnus-setup-message-group))))) (gnus-pull (quote X-Draft-From) message-required-headers) (when (and gnus-setup-message-group (not (string= gnus-setup-message-group ""))) (push (cons (intern gnus-draft-meta-information-header) (gnus-inews-make-draft (or gnus-setup-yanked-articles gnus-setup-message-article))) message-required-headers)) (unwind-protect (progn (edebug-after (edebug-before 18) 169 (let* ((group (edebug-after (edebug-before 19) 22 (or (edebug-after 0 20 group) (edebug-after 0 21 gnus-newsgroup-name)))) (charset (edebug-after (edebug-before 23) 25 (gnus-group-name-charset nil (edebug-after 0 24 group)))) (pgroup (edebug-after 0 26 group)) to-address to-group mailing-list to-list newsgroup-p) (edebug-after (edebug-before 27) 55 (when (edebug-after 0 28 group) (edebug-after (edebug-before 29) 54 (setq to-address (edebug-after (edebug-before 30) 32 (gnus-parameter-to-address (edebug-after 0 31 group))) to-group (edebug-after (edebug-before 33) 35 (gnus-group-find-parameter (edebug-after 0 34 group) (quote to-group))) to-list (edebug-after (edebug-before 36) 38 (gnus-parameter-to-list (edebug-after 0 37 group))) newsgroup-p (edebug-after (edebug-before 39) 41 (gnus-group-find-parameter (edebug-after 0 40 group) (quote newsgroup))) mailing-list (edebug-after (edebug-before 42) 48 (when (edebug-after 0 43 gnus-mailing-list-groups) (edebug-after (edebug-before 44) 47 (string-match (edebug-after 0 45 gnus-mailing-list-groups) (edebug-after 0 46 group))))) group (edebug-after (edebug-before 49) 53 (gnus-group-name-decode (edebug-after (edebug-before 50) 51 (gnus-group-real-name group)) (edebug-after 0 52 charset))))))) (edebug-after (edebug-before 56) 162 (if (edebug-after (edebug-before 57) 87 (or (edebug-after (edebug-before 58) 63 (and (edebug-after 0 59 to-group) (edebug-after (edebug-before 60) 62 (gnus-news-group-p (edebug-after 0 61 to-group))))) (edebug-after 0 64 newsgroup-p) (edebug-after 0 65 force-news) (edebug-after (edebug-before 66) 86 (and (edebug-after (edebug-before 67) 76 (gnus-news-group-p (edebug-after (edebug-before 68) 71 (or (edebug-after 0 69 pgroup) (edebug-after 0 70 gnus-newsgroup-name))) (edebug-after (edebug-before 72) 75 (or (edebug-after 0 73 header) (edebug-after 0 74 gnus-current-article))))) (edebug-after (edebug-before 77) 79 (not (edebug-after 0 78 mailing-list))) (edebug-after (edebug-before 80) 82 (not (edebug-after 0 81 to-list))) (edebug-after (edebug-before 83) 85 (not (edebug-after 0 84 to-address))))))) (edebug-after (edebug-before 88) 125 (if (edebug-after 0 89 post) (edebug-after (edebug-before 90) 102 (message-news (edebug-after (edebug-before 91) 101 (or (edebug-after 0 92 to-group) (edebug-after (edebug-before 93) 100 (and (edebug-after (edebug-before 94) 98 (not (edebug-after (edebug-before 95) 97 (gnus-virtual-group-p (edebug-after 0 96 pgroup))))) (edebug-after 0 99 group))))))) (edebug-after (edebug-before 103) 105 (set-buffer (edebug-after 0 104 gnus-article-copy))) (edebug-after (edebug-before 106) 107 (gnus-msg-treat-broken-reply-to)) (edebug-after (edebug-before 108) 124 (message-followup (edebug-after (edebug-before 109) 123 (if (edebug-after (edebug-before 110) 113 (or (edebug-after 0 111 newsgroup-p) (edebug-after 0 112 force-news))) (edebug-after (edebug-before 114) 121 (if (edebug-after (edebug-before 115) 120 (save-restriction (edebug-after (edebug-before 116) 117 (article-narrow-to-head)) (edebug-after (edebug-before 118) 119 (message-fetch-field "newsgroups")))) nil "")) (edebug-after 0 122 to-group))))))) (edebug-after (edebug-before 126) 161 (if (edebug-after 0 127 post) (edebug-after (edebug-before 128) 152 (progn (edebug-after (edebug-before 129) 134 (message-mail (edebug-after (edebug-before 130) 133 (or (edebug-after 0 131 to-address) (edebug-after 0 132 to-list))))) (edebug-after (edebug-before 135) 151 (when (edebug-after (edebug-before 136) 144 (and (edebug-after (edebug-before 137) 139 (not (edebug-after 0 138 to-list))) (edebug-after (edebug-before 140) 142 (not (edebug-after 0 141 to-address))) (edebug-after 0 143 add-to-list))) (edebug-after (edebug-before 145) 150 (push (edebug-after (edebug-before 146) 148 (list (quote gnus-inews-add-to-address) (edebug-after 0 147 pgroup))) (edebug-after 0 149 message-send-actions))))))) (edebug-after (edebug-before 153) 155 (set-buffer (edebug-after 0 154 gnus-article-copy))) (edebug-after (edebug-before 156) 157 (gnus-msg-treat-broken-reply-to)) (edebug-after (edebug-before 158) 160 (message-wide-reply (edebug-after 0 159 to-address))))))) (edebug-after (edebug-before 163) 168 (when (edebug-after 0 164 yank) (edebug-after (edebug-before 165) 167 (gnus-inews-yank-articles (edebug-after 0 166 yank)))))))) (gnus-inews-add-send-actions gnus-setup-message-winconf gnus-setup-message-buffer gnus-setup-message-article (edebug-after (edebug-before 14) 17 (cond ((edebug-after 0 15 yank) (quote reply-yank)) ((edebug-after 0 16 article-buffer) (quote reply)) (t (quote message)))) gnus-setup-yanked-articles) (setq gnus-message-buffer (current-buffer)) (set (make-local-variable (quote gnus-message-group-art)) (cons gnus-setup-message-group gnus-setup-message-article)) (set (make-local-variable (quote gnus-newsgroup-name)) gnus-setup-message-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 (edebug-after (edebug-before 14) 17 (cond ((edebug-after 0 15 yank) (quote reply-yank)) ((edebug-after 0 16 article-buffer) (quote reply)) (t (quote message)))) t) (run-hooks (quote post-command-hook)) (set-buffer-modified-p nil)) (gnus-setup-message (edebug-after (edebug-before 14) 17 (cond ((edebug-after 0 15 yank) (quote reply-yank)) ((edebug-after 0 16 article-buffer) (quote reply)) (t (quote message)))) (edebug-after (edebug-before 18) 169 (let* ((group (edebug-after (edebug-before 19) 22 (or (edebug-after 0 20 group) (edebug-after 0 21 gnus-newsgroup-name)))) (charset (edebug-after (edebug-before 23) 25 (gnus-group-name-charset nil (edebug-after 0 24 group)))) (pgroup (edebug-after 0 26 group)) to-address to-group mailing-list to-list newsgroup-p) (edebug-after (edebug-before 27) 55 (when (edebug-after 0 28 group) (edebug-after (edebug-before 29) 54 (setq to-address (edebug-after (edebug-before 30) 32 (gnus-parameter-to-address (edebug-after 0 31 group))) to-group (edebug-after (edebug-before 33) 35 (gnus-group-find-parameter (edebug-after 0 34 group) (quote to-group))) to-list (edebug-after (edebug-before 36) 38 (gnus-parameter-to-list (edebug-after 0 37 group))) newsgroup-p (edebug-after (edebug-before 39) 41 (gnus-group-find-parameter (edebug-after 0 40 group) (quote newsgroup))) mailing-list (edebug-after (edebug-before 42) 48 (when (edebug-after 0 43 gnus-mailing-list-groups) (edebug-after (edebug-before 44) 47 (string-match (edebug-after 0 45 gnus-mailing-list-groups) (edebug-after 0 46 group))))) group (edebug-after (edebug-before 49) 53 (gnus-group-name-decode (edebug-after (edebug-before 50) 51 (gnus-group-real-name group)) (edebug-after 0 52 charset))))))) (edebug-after (edebug-before 56) 162 (if (edebug-after (edebug-before 57) 87 (or (edebug-after (edebug-before 58) 63 (and (edebug-after 0 59 to-group) (edebug-after (edebug-before 60) 62 (gnus-news-group-p (edebug-after 0 61 to-group))))) (edebug-after 0 64 newsgroup-p) (edebug-after 0 65 force-news) (edebug-after (edebug-before 66) 86 (and (edebug-after (edebug-before 67) 76 (gnus-news-group-p (edebug-after (edebug-before 68) 71 (or (edebug-after 0 69 pgroup) (edebug-after 0 70 gnus-newsgroup-name))) (edebug-after (edebug-before 72) 75 (or (edebug-after 0 73 header) (edebug-after 0 74 gnus-current-article))))) (edebug-after (edebug-before 77) 79 (not (edebug-after 0 78 mailing-list))) (edebug-after (edebug-before 80) 82 (not (edebug-after 0 81 to-list))) (edebug-after (edebug-before 83) 85 (not (edebug-after 0 84 to-address))))))) (edebug-after (edebug-before 88) 125 (if (edebug-after 0 89 post) (edebug-after (edebug-before 90) 102 (message-news (edebug-after (edebug-before 91) 101 (or (edebug-after 0 92 to-group) (edebug-after (edebug-before 93) 100 (and (edebug-after (edebug-before 94) 98 (not (edebug-after (edebug-before 95) 97 (gnus-virtual-group-p (edebug-after 0 96 pgroup))))) (edebug-after 0 99 group))))))) (edebug-after (edebug-before 103) 105 (set-buffer (edebug-after 0 104 gnus-article-copy))) (edebug-after (edebug-before 106) 107 (gnus-msg-treat-broken-reply-to)) (edebug-after (edebug-before 108) 124 (message-followup (edebug-after (edebug-before 109) 123 (if (edebug-after (edebug-before 110) 113 (or (edebug-after 0 111 newsgroup-p) (edebug-after 0 112 force-news))) (edebug-after (edebug-before 114) 121 (if (edebug-after (edebug-before 115) 120 (save-restriction (edebug-after (edebug-before 116) 117 (article-narrow-to-head)) (edebug-after (edebug-before 118) 119 (message-fetch-field "newsgroups")))) nil "")) (edebug-after 0 122 to-group))))))) (edebug-after (edebug-before 126) 161 (if (edebug-after 0 127 post) (edebug-after (edebug-before 128) 152 (progn (edebug-after (edebug-before 129) 134 (message-mail (edebug-after (edebug-before 130) 133 (or (edebug-after 0 131 to-address) (edebug-after 0 132 to-list))))) (edebug-after (edebug-before 135) 151 (when (edebug-after (edebug-before 136) 144 (and (edebug-after (edebug-before 137) 139 (not (edebug-after 0 138 to-list))) (edebug-after (edebug-before 140) 142 (not (edebug-after 0 141 to-address))) (edebug-after 0 143 add-to-list))) (edebug-after (edebug-before 145) 150 (push (edebug-after (edebug-before 146) 148 (list (quote gnus-inews-add-to-address) (edebug-after 0 147 pgroup))) (edebug-after 0 149 message-send-actions))))))) (edebug-after (edebug-before 153) 155 (set-buffer (edebug-after 0 154 gnus-article-copy))) (edebug-after (edebug-before 156) 157 (gnus-msg-treat-broken-reply-to)) (edebug-after (edebug-before 158) 160 (message-wide-reply (edebug-after 0 159 to-address))))))) (edebug-after (edebug-before 163) 168 (when (edebug-after 0 164 yank) (edebug-after (edebug-before 165) 167 (gnus-inews-yank-articles (edebug-after 0 166 yank)))))))) (edebug-after (edebug-before 13) 170 (gnus-setup-message (edebug-after (edebug-before 14) 17 (cond ((edebug-after 0 15 yank) (quote reply-yank)) ((edebug-after 0 16 article-buffer) (quote reply)) (t (quote message)))) (edebug-after (edebug-before 18) 169 (let* ((group (edebug-after (edebug-before 19) 22 (or (edebug-after 0 20 group) (edebug-after 0 21 gnus-newsgroup-name)))) (charset (edebug-after (edebug-before 23) 25 (gnus-group-name-charset nil (edebug-after 0 24 group)))) (pgroup (edebug-after 0 26 group)) to-address to-group mailing-list to-list newsgroup-p) (edebug-after (edebug-before 27) 55 (when (edebug-after 0 28 group) (edebug-after (edebug-before 29) 54 (setq to-address (edebug-after (edebug-before 30) 32 (gnus-parameter-to-address (edebug-after 0 31 group))) to-group (edebug-after (edebug-before 33) 35 (gnus-group-find-parameter (edebug-after 0 34 group) (quote to-group))) to-list (edebug-after (edebug-before 36) 38 (gnus-parameter-to-list (edebug-after 0 37 group))) newsgroup-p (edebug-after (edebug-before 39) 41 (gnus-group-find-parameter (edebug-after 0 40 group) (quote newsgroup))) mailing-list (edebug-after (edebug-before 42) 48 (when (edebug-after 0 43 gnus-mailing-list-groups) (edebug-after (edebug-before 44) 47 (string-match (edebug-after 0 45 gnus-mailing-list-groups) (edebug-after 0 46 group))))) group (edebug-after (edebug-before 49) 53 (gnus-group-name-decode (edebug-after (edebug-before 50) 51 (gnus-group-real-name group)) (edebug-after 0 52 charset))))))) (edebug-after (edebug-before 56) 162 (if (edebug-after (edebug-before 57) 87 (or (edebug-after (edebug-before 58) 63 (and (edebug-after 0 59 to-group) (edebug-after (edebug-before 60) 62 (gnus-news-group-p (edebug-after 0 61 to-group))))) (edebug-after 0 64 newsgroup-p) (edebug-after 0 65 force-news) (edebug-after (edebug-before 66) 86 (and (edebug-after (edebug-before 67) 76 (gnus-news-group-p (edebug-after (edebug-before 68) 71 (or (edebug-after 0 69 pgroup) (edebug-after 0 70 gnus-newsgroup-name))) (edebug-after (edebug-before 72) 75 (or (edebug-after 0 73 header) (edebug-after 0 74 gnus-current-article))))) (edebug-after (edebug-before 77) 79 (not (edebug-after 0 78 mailing-list))) (edebug-after (edebug-before 80) 82 (not (edebug-after 0 81 to-list))) (edebug-after (edebug-before 83) 85 (not (edebug-after 0 84 to-address))))))) (edebug-after (edebug-before 88) 125 (if (edebug-after 0 89 post) (edebug-after (edebug-before 90) 102 (message-news (edebug-after (edebug-before 91) 101 (or (edebug-after 0 92 to-group) (edebug-after (edebug-before 93) 100 (and (edebug-after (edebug-before 94) 98 (not (edebug-after (edebug-before 95) 97 (gnus-virtual-group-p (edebug-after 0 96 pgroup))))) (edebug-after 0 99 group))))))) (edebug-after (edebug-before 103) 105 (set-buffer (edebug-after 0 104 gnus-article-copy))) (edebug-after (edebug-before 106) 107 (gnus-msg-treat-broken-reply-to)) (edebug-after (edebug-before 108) 124 (message-followup (edebug-after (edebug-before 109) 123 (if (edebug-after (edebug-before 110) 113 (or (edebug-after 0 111 newsgroup-p) (edebug-after 0 112 force-news))) (edebug-after (edebug-before 114) 121 (if (edebug-after (edebug-before 115) 120 (save-restriction (edebug-after (edebug-before 116) 117 (article-narrow-to-head)) (edebug-after (edebug-before 118) 119 (message-fetch-field "newsgroups")))) nil "")) (edebug-after 0 122 to-group))))))) (edebug-after (edebug-before 126) 161 (if (edebug-after 0 127 post) (edebug-after (edebug-before 128) 152 (progn (edebug-after (edebug-before 129) 134 (message-mail (edebug-after (edebug-before 130) 133 (or (edebug-after 0 131 to-address) (edebug-after 0 132 to-list))))) (edebug-after (edebug-before 135) 151 (when (edebug-after (edebug-before 136) 144 (and (edebug-after (edebug-before 137) 139 (not (edebug-after 0 138 to-list))) (edebug-after (edebug-before 140) 142 (not (edebug-after 0 141 to-address))) (edebug-after 0 143 add-to-list))) (edebug-after (edebug-before 145) 150 (push (edebug-after (edebug-before 146) 148 (list (quote gnus-inews-add-to-address) (edebug-after 0 147 pgroup))) (edebug-after 0 149 message-send-actions))))))) (edebug-after (edebug-before 153) 155 (set-buffer (edebug-after 0 154 gnus-article-copy))) (edebug-after (edebug-before 156) 157 (gnus-msg-treat-broken-reply-to)) (edebug-after (edebug-before 158) 160 (message-wide-reply (edebug-after 0 159 to-address))))))) (edebug-after (edebug-before 163) 168 (when (edebug-after 0 164 yank) (edebug-after (edebug-before 165) 167 (gnus-inews-yank-articles (edebug-after 0 166 yank))))))))) # bind (add-to-list gnus-article-yanked-articles gnus-article-reply) (let ((gnus-article-reply (edebug-after (edebug-before 6) 10 (and (edebug-after 0 7 article-buffer) (edebug-after (edebug-before 8) 9 (gnus-summary-article-number))))) (gnus-article-yanked-articles (edebug-after 0 11 yank)) (add-to-list (edebug-after 0 12 gnus-add-to-list))) (edebug-after (edebug-before 13) 170 (gnus-setup-message (edebug-after (edebug-before 14) 17 (cond ((edebug-after 0 15 yank) (quote reply-yank)) ((edebug-after 0 16 article-buffer) (quote reply)) (t (quote message)))) (edebug-after (edebug-before 18) 169 (let* ((group (edebug-after (edebug-before 19) 22 (or (edebug-after 0 20 group) (edebug-after 0 21 gnus-newsgroup-name)))) (charset (edebug-after (edebug-before 23) 25 (gnus-group-name-charset nil (edebug-after 0 24 group)))) (pgroup (edebug-after 0 26 group)) to-address to-group mailing-list to-list newsgroup-p) (edebug-after (edebug-before 27) 55 (when (edebug-after 0 28 group) (edebug-after (edebug-before 29) 54 (setq to-address (edebug-after (edebug-before 30) 32 (gnus-parameter-to-address (edebug-after 0 31 group))) to-group (edebug-after (edebug-before 33) 35 (gnus-group-find-parameter (edebug-after 0 34 group) (quote to-group))) to-list (edebug-after (edebug-before 36) 38 (gnus-parameter-to-list (edebug-after 0 37 group))) newsgroup-p (edebug-after (edebug-before 39) 41 (gnus-group-find-parameter (edebug-after 0 40 group) (quote newsgroup))) mailing-list (edebug-after (edebug-before 42) 48 (when (edebug-after 0 43 gnus-mailing-list-groups) (edebug-after (edebug-before 44) 47 (string-match (edebug-after 0 45 gnus-mailing-list-groups) (edebug-after 0 46 group))))) group (edebug-after (edebug-before 49) 53 (gnus-group-name-decode (edebug-after (edebug-before 50) 51 (gnus-group-real-name group)) (edebug-after 0 52 charset))))))) (edebug-after (edebug-before 56) 162 (if (edebug-after (edebug-before 57) 87 (or (edebug-after (edebug-before 58) 63 (and (edebug-after 0 59 to-group) (edebug-after (edebug-before 60) 62 (gnus-news-group-p (edebug-after 0 61 to-group))))) (edebug-after 0 64 newsgroup-p) (edebug-after 0 65 force-news) (edebug-after (edebug-before 66) 86 (and (edebug-after (edebug-before 67) 76 (gnus-news-group-p (edebug-after (edebug-before 68) 71 (or (edebug-after 0 69 pgroup) (edebug-after 0 70 gnus-newsgroup-name))) (edebug-after (edebug-before 72) 75 (or (edebug-after 0 73 header) (edebug-after 0 74 gnus-current-article))))) (edebug-after (edebug-before 77) 79 (not (edebug-after 0 78 mailing-list))) (edebug-after (edebug-before 80) 82 (not (edebug-after 0 81 to-list))) (edebug-after (edebug-before 83) 85 (not (edebug-after 0 84 to-address))))))) (edebug-after (edebug-before 88) 125 (if (edebug-after 0 89 post) (edebug-after (edebug-before 90) 102 (message-news (edebug-after (edebug-before 91) 101 (or (edebug-after 0 92 to-group) (edebug-after (edebug-before 93) 100 (and (edebug-after (edebug-before 94) 98 (not (edebug-after (edebug-before 95) 97 (gnus-virtual-group-p (edebug-after 0 96 pgroup))))) (edebug-after 0 99 group))))))) (edebug-after (edebug-before 103) 105 (set-buffer (edebug-after 0 104 gnus-article-copy))) (edebug-after (edebug-before 106) 107 (gnus-msg-treat-broken-reply-to)) (edebug-after (edebug-before 108) 124 (message-followup (edebug-after (edebug-before 109) 123 (if (edebug-after (edebug-before 110) 113 (or (edebug-after 0 111 newsgroup-p) (edebug-after 0 112 force-news))) (edebug-after (edebug-before 114) 121 (if (edebug-after (edebug-before 115) 120 (save-restriction (edebug-after (edebug-before 116) 117 (article-narrow-to-head)) (edebug-after (edebug-before 118) 119 (message-fetch-field "newsgroups")))) nil "")) (edebug-after 0 122 to-group))))))) (edebug-after (edebug-before 126) 161 (if (edebug-after 0 127 post) (edebug-after (edebug-before 128) 152 (progn (edebug-after (edebug-before 129) 134 (message-mail (edebug-after (edebug-before 130) 133 (or (edebug-after 0 131 to-address) (edebug-after 0 132 to-list))))) (edebug-after (edebug-before 135) 151 (when (edebug-after (edebug-before 136) 144 (and (edebug-after (edebug-before 137) 139 (not (edebug-after 0 138 to-list))) (edebug-after (edebug-before 140) 142 (not (edebug-after 0 141 to-address))) (edebug-after 0 143 add-to-list))) (edebug-after (edebug-before 145) 150 (push (edebug-after (edebug-before 146) 148 (list (quote gnus-inews-add-to-address) (edebug-after 0 147 pgroup))) (edebug-after 0 149 message-send-actions))))))) (edebug-after (edebug-before 153) 155 (set-buffer (edebug-after 0 154 gnus-article-copy))) (edebug-after (edebug-before 156) 157 (gnus-msg-treat-broken-reply-to)) (edebug-after (edebug-before 158) 160 (message-wide-reply (edebug-after 0 159 to-address))))))) (edebug-after (edebug-before 163) 168 (when (edebug-after 0 164 yank) (edebug-after (edebug-before 165) 167 (gnus-inews-yank-articles (edebug-after 0 166 yank)))))))))) (edebug-after (edebug-before 5) 171 (let ((gnus-article-reply (edebug-after (edebug-before 6) 10 (and (edebug-after 0 7 article-buffer) (edebug-after (edebug-before 8) 9 (gnus-summary-article-number))))) (gnus-article-yanked-articles (edebug-after 0 11 yank)) (add-to-list (edebug-after 0 12 gnus-add-to-list))) (edebug-after (edebug-before 13) 170 (gnus-setup-message (edebug-after (edebug-before 14) 17 (cond ((edebug-after 0 15 yank) (quote reply-yank)) ((edebug-after 0 16 article-buffer) (quote reply)) (t (quote message)))) (edebug-after (edebug-before 18) 169 (let* ((group (edebug-after (edebug-before 19) 22 (or (edebug-after 0 20 group) (edebug-after 0 21 gnus-newsgroup-name)))) (charset (edebug-after (edebug-before 23) 25 (gnus-group-name-charset nil (edebug-after 0 24 group)))) (pgroup (edebug-after 0 26 group)) to-address to-group mailing-list to-list newsgroup-p) (edebug-after (edebug-before 27) 55 (when (edebug-after 0 28 group) (edebug-after (edebug-before 29) 54 (setq to-address (edebug-after (edebug-before 30) 32 (gnus-parameter-to-address (edebug-after 0 31 group))) to-group (edebug-after (edebug-before 33) 35 (gnus-group-find-parameter (edebug-after 0 34 group) (quote to-group))) to-list (edebug-after (edebug-before 36) 38 (gnus-parameter-to-list (edebug-after 0 37 group))) newsgroup-p (edebug-after (edebug-before 39) 41 (gnus-group-find-parameter (edebug-after 0 40 group) (quote newsgroup))) mailing-list (edebug-after (edebug-before 42) 48 (when (edebug-after 0 43 gnus-mailing-list-groups) (edebug-after (edebug-before 44) 47 (string-match (edebug-after 0 45 gnus-mailing-list-groups) (edebug-after 0 46 group))))) group (edebug-after (edebug-before 49) 53 (gnus-group-name-decode (edebug-after (edebug-before 50) 51 (gnus-group-real-name group)) (edebug-after 0 52 charset))))))) (edebug-after (edebug-before 56) 162 (if (edebug-after (edebug-before 57) 87 (or (edebug-after (edebug-before 58) 63 (and (edebug-after 0 59 to-group) (edebug-after (edebug-before 60) 62 (gnus-news-group-p (edebug-after 0 61 to-group))))) (edebug-after 0 64 newsgroup-p) (edebug-after 0 65 force-news) (edebug-after (edebug-before 66) 86 (and (edebug-after (edebug-before 67) 76 (gnus-news-group-p (edebug-after (edebug-before 68) 71 (or (edebug-after 0 69 pgroup) (edebug-after 0 70 gnus-newsgroup-name))) (edebug-after (edebug-before 72) 75 (or (edebug-after 0 73 header) (edebug-after 0 74 gnus-current-article))))) (edebug-after (edebug-before 77) 79 (not (edebug-after 0 78 mailing-list))) (edebug-after (edebug-before 80) 82 (not (edebug-after 0 81 to-list))) (edebug-after (edebug-before 83) 85 (not (edebug-after 0 84 to-address))))))) (edebug-after (edebug-before 88) 125 (if (edebug-after 0 89 post) (edebug-after (edebug-before 90) 102 (message-news (edebug-after (edebug-before 91) 101 (or (edebug-after 0 92 to-group) (edebug-after (edebug-before 93) 100 (and (edebug-after (edebug-before 94) 98 (not (edebug-after (edebug-before 95) 97 (gnus-virtual-group-p (edebug-after 0 96 pgroup))))) (edebug-after 0 99 group))))))) (edebug-after (edebug-before 103) 105 (set-buffer (edebug-after 0 104 gnus-article-copy))) (edebug-after (edebug-before 106) 107 (gnus-msg-treat-broken-reply-to)) (edebug-after (edebug-before 108) 124 (message-followup (edebug-after (edebug-before 109) 123 (if (edebug-after (edebug-before 110) 113 (or (edebug-after 0 111 newsgroup-p) (edebug-after 0 112 force-news))) (edebug-after (edebug-before 114) 121 (if (edebug-after (edebug-before 115) 120 (save-restriction (edebug-after (edebug-before 116) 117 (article-narrow-to-head)) (edebug-after (edebug-before 118) 119 (message-fetch-field "newsgroups")))) nil "")) (edebug-after 0 122 to-group))))))) (edebug-after (edebug-before 126) 161 (if (edebug-after 0 127 post) (edebug-after (edebug-before 128) 152 (progn (edebug-after (edebug-before 129) 134 (message-mail (edebug-after (edebug-before 130) 133 (or (edebug-after 0 131 to-address) (edebug-after 0 132 to-list))))) (edebug-after (edebug-before 135) 151 (when (edebug-after (edebug-before 136) 144 (and (edebug-after (edebug-before 137) 139 (not (edebug-after 0 138 to-list))) (edebug-after (edebug-before 140) 142 (not (edebug-after 0 141 to-address))) (edebug-after 0 143 add-to-list))) (edebug-after (edebug-before 145) 150 (push (edebug-after (edebug-before 146) 148 (list (quote gnus-inews-add-to-address) (edebug-after 0 147 pgroup))) (edebug-after 0 149 message-send-actions))))))) (edebug-after (edebug-before 153) 155 (set-buffer (edebug-after 0 154 gnus-article-copy))) (edebug-after (edebug-before 156) 157 (gnus-msg-treat-broken-reply-to)) (edebug-after (edebug-before 158) 160 (message-wide-reply (edebug-after 0 159 to-address))))))) (edebug-after (edebug-before 163) 168 (when (edebug-after 0 164 yank) (edebug-after (edebug-before 165) 167 (gnus-inews-yank-articles (edebug-after 0 166 yank))))))))))) (lambda nil (edebug-after (edebug-before 0) 4 (when (edebug-after 0 1 article-buffer) (edebug-after (edebug-before 2) 3 (gnus-copy-article-buffer)))) (edebug-after (edebug-before 5) 171 (let ((gnus-article-reply (edebug-after (edebug-before 6) 10 (and (edebug-after 0 7 article-buffer) (edebug-after (edebug-before 8) 9 (gnus-summary-article-number))))) (gnus-article-yanked-articles (edebug-after 0 11 yank)) (add-to-list (edebug-after 0 12 gnus-add-to-list))) (edebug-after (edebug-before 13) 170 (gnus-setup-message (edebug-after (edebug-before 14) 17 (cond ((edebug-after 0 15 yank) (quote reply-yank)) ((edebug-after 0 16 article-buffer) (quote reply)) (t (quote message)))) (edebug-after (edebug-before 18) 169 (let* ((group (edebug-after (edebug-before 19) 22 (or (edebug-after 0 20 group) (edebug-after 0 21 gnus-newsgroup-name)))) (charset (edebug-after (edebug-before 23) 25 (gnus-group-name-charset nil (edebug-after 0 24 group)))) (pgroup (edebug-after 0 26 group)) to-address to-group mailing-list to-list newsgroup-p) (edebug-after (edebug-before 27) 55 (when (edebug-after 0 28 group) (edebug-after (edebug-before 29) 54 (setq to-address (edebug-after (edebug-before 30) 32 (gnus-parameter-to-address (edebug-after 0 31 group))) to-group (edebug-after (edebug-before 33) 35 (gnus-group-find-parameter (edebug-after 0 34 group) (quote to-group))) to-list (edebug-after (edebug-before 36) 38 (gnus-parameter-to-list (edebug-after 0 37 group))) newsgroup-p (edebug-after (edebug-before 39) 41 (gnus-group-find-parameter (edebug-after 0 40 group) (quote newsgroup))) mailing-list (edebug-after (edebug-before 42) 48 (when (edebug-after 0 43 gnus-mailing-list-groups) (edebug-after (edebug-before 44) 47 (string-match (edebug-after 0 45 gnus-mailing-list-groups) (edebug-after 0 46 group))))) group (edebug-after (edebug-before 49) 53 (gnus-group-name-decode (edebug-after (edebug-before 50) 51 (gnus-group-real-name group)) (edebug-after 0 52 charset))))))) (edebug-after (edebug-before 56) 162 (if (edebug-after (edebug-before 57) 87 (or (edebug-after (edebug-before 58) 63 (and (edebug-after 0 59 to-group) (edebug-after (edebug-before 60) 62 (gnus-news-group-p (edebug-after 0 61 to-group))))) (edebug-after 0 64 newsgroup-p) (edebug-after 0 65 force-news) (edebug-after (edebug-before 66) 86 (and (edebug-after (edebug-before 67) 76 (gnus-news-group-p (edebug-after (edebug-before 68) 71 (or (edebug-after 0 69 pgroup) (edebug-after 0 70 gnus-newsgroup-name))) (edebug-after (edebug-before 72) 75 (or (edebug-after 0 73 header) (edebug-after 0 74 gnus-current-article))))) (edebug-after (edebug-before 77) 79 (not (edebug-after 0 78 mailing-list))) (edebug-after (edebug-before 80) 82 (not (edebug-after 0 81 to-list))) (edebug-after (edebug-before 83) 85 (not (edebug-after 0 84 to-address))))))) (edebug-after (edebug-before 88) 125 (if (edebug-after 0 89 post) (edebug-after (edebug-before 90) 102 (message-news (edebug-after (edebug-before 91) 101 (or (edebug-after 0 92 to-group) (edebug-after (edebug-before 93) 100 (and (edebug-after (edebug-before 94) 98 (not (edebug-after (edebug-before 95) 97 (gnus-virtual-group-p (edebug-after 0 96 pgroup))))) (edebug-after 0 99 group))))))) (edebug-after (edebug-before 103) 105 (set-buffer (edebug-after 0 104 gnus-article-copy))) (edebug-after (edebug-before 106) 107 (gnus-msg-treat-broken-reply-to)) (edebug-after (edebug-before 108) 124 (message-followup (edebug-after (edebug-before 109) 123 (if (edebug-after (edebug-before 110) 113 (or (edebug-after 0 111 newsgroup-p) (edebug-after 0 112 force-news))) (edebug-after (edebug-before 114) 121 (if (edebug-after (edebug-before 115) 120 (save-restriction (edebug-after (edebug-before 116) 117 (article-narrow-to-head)) (edebug-after (edebug-before 118) 119 (message-fetch-field "newsgroups")))) nil "")) (edebug-after 0 122 to-group))))))) (edebug-after (edebug-before 126) 161 (if (edebug-after 0 127 post) (edebug-after (edebug-before 128) 152 (progn (edebug-after (edebug-before 129) 134 (message-mail (edebug-after (edebug-before 130) 133 (or (edebug-after 0 131 to-address) (edebug-after 0 132 to-list))))) (edebug-after (edebug-before 135) 151 (when (edebug-after (edebug-before 136) 144 (and (edebug-after (edebug-before 137) 139 (not (edebug-after 0 138 to-list))) (edebug-after (edebug-before 140) 142 (not (edebug-after 0 141 to-address))) (edebug-after 0 143 add-to-list))) (edebug-after (edebug-before 145) 150 (push (edebug-after (edebug-before 146) 148 (list (quote gnus-inews-add-to-address) (edebug-after 0 147 pgroup))) (edebug-after 0 149 message-send-actions))))))) (edebug-after (edebug-before 153) 155 (set-buffer (edebug-after 0 154 gnus-article-copy))) (edebug-after (edebug-before 156) 157 (gnus-msg-treat-broken-reply-to)) (edebug-after (edebug-before 158) 160 (message-wide-reply (edebug-after 0 159 to-address))))))) (edebug-after (edebug-before 163) 168 (when (edebug-after 0 164 yank) (edebug-after (edebug-before 165) 167 (gnus-inews-yank-articles (edebug-after 0 166 yank))))))))))))() # bind (edebug-offset-indices edebug-stack edebug-buffer edebug-coverage edebug-freq-count edebug-def-mark edebug-data edebug-body edebug-args edebug-function) edebug-enter(gnus-post-news (post nil nil nil nil nil nil) (lambda nil (edebug-after (edebug-before 0) 4 (when (edebug-after 0 1 article-buffer) (edebug-after (edebug-before 2) 3 (gnus-copy-article-buffer)))) (edebug-after (edebug-before 5) 171 (let ((gnus-article-reply (edebug-after (edebug-before 6) 10 (and (edebug-after 0 7 article-buffer) (edebug-after (edebug-before 8) 9 (gnus-summary-article-number))))) (gnus-article-yanked-articles (edebug-after 0 11 yank)) (add-to-list (edebug-after 0 12 gnus-add-to-list))) (edebug-after (edebug-before 13) 170 (gnus-setup-message (edebug-after (edebug-before 14) 17 (cond ((edebug-after 0 15 yank) (quote reply-yank)) ((edebug-after 0 16 article-buffer) (quote reply)) (t (quote message)))) (edebug-after (edebug-before 18) 169 (let* ((group (edebug-after (edebug-before 19) 22 (or (edebug-after 0 20 group) (edebug-after 0 21 gnus-newsgroup-name)))) (charset (edebug-after (edebug-before 23) 25 (gnus-group-name-charset nil (edebug-after 0 24 group)))) (pgroup (edebug-after 0 26 group)) to-address to-group mailing-list to-list newsgroup-p) (edebug-after (edebug-before 27) 55 (when (edebug-after 0 28 group) (edebug-after (edebug-before 29) 54 (setq to-address (edebug-after (edebug-before 30) 32 (gnus-parameter-to-address (edebug-after 0 31 group))) to-group (edebug-after (edebug-before 33) 35 (gnus-group-find-parameter (edebug-after 0 34 group) (quote to-group))) to-list (edebug-after (edebug-before 36) 38 (gnus-parameter-to-list (edebug-after 0 37 group))) newsgroup-p (edebug-after (edebug-before 39) 41 (gnus-group-find-parameter (edebug-after 0 40 group) (quote newsgroup))) mailing-list (edebug-after (edebug-before 42) 48 (when (edebug-after 0 43 gnus-mailing-list-groups) (edebug-after (edebug-before 44) 47 (string-match (edebug-after 0 45 gnus-mailing-list-groups) (edebug-after 0 46 group))))) group (edebug-after (edebug-before 49) 53 (gnus-group-name-decode (edebug-after (edebug-before 50) 51 (gnus-group-real-name group)) (edebug-after 0 52 charset))))))) (edebug-after (edebug-before 56) 162 (if (edebug-after (edebug-before 57) 87 (or (edebug-after (edebug-before 58) 63 (and (edebug-after 0 59 to-group) (edebug-after (edebug-before 60) 62 (gnus-news-group-p (edebug-after 0 61 to-group))))) (edebug-after 0 64 newsgroup-p) (edebug-after 0 65 force-news) (edebug-after (edebug-before 66) 86 (and (edebug-after (edebug-before 67) 76 (gnus-news-group-p (edebug-after (edebug-before 68) 71 (or (edebug-after 0 69 pgroup) (edebug-after 0 70 gnus-newsgroup-name))) (edebug-after (edebug-before 72) 75 (or (edebug-after 0 73 header) (edebug-after 0 74 gnus-current-article))))) (edebug-after (edebug-before 77) 79 (not (edebug-after 0 78 mailing-list))) (edebug-after (edebug-before 80) 82 (not (edebug-after 0 81 to-list))) (edebug-after (edebug-before 83) 85 (not (edebug-after 0 84 to-address))))))) (edebug-after (edebug-before 88) 125 (if (edebug-after 0 89 post) (edebug-after (edebug-before 90) 102 (message-news (edebug-after (edebug-before 91) 101 (or (edebug-after 0 92 to-group) (edebug-after (edebug-before 93) 100 (and (edebug-after (edebug-before 94) 98 (not (edebug-after (edebug-before 95) 97 (gnus-virtual-group-p (edebug-after 0 96 pgroup))))) (edebug-after 0 99 group))))))) (edebug-after (edebug-before 103) 105 (set-buffer (edebug-after 0 104 gnus-article-copy))) (edebug-after (edebug-before 106) 107 (gnus-msg-treat-broken-reply-to)) (edebug-after (edebug-before 108) 124 (message-followup (edebug-after (edebug-before 109) 123 (if (edebug-after (edebug-before 110) 113 (or (edebug-after 0 111 newsgroup-p) (edebug-after 0 112 force-news))) (edebug-after (edebug-before 114) 121 (if (edebug-after (edebug-before 115) 120 (save-restriction (edebug-after (edebug-before 116) 117 (article-narrow-to-head)) (edebug-after (edebug-before 118) 119 (message-fetch-field "newsgroups")))) nil "")) (edebug-after 0 122 to-group))))))) (edebug-after (edebug-before 126) 161 (if (edebug-after 0 127 post) (edebug-after (edebug-before 128) 152 (progn (edebug-after (edebug-before 129) 134 (message-mail (edebug-after (edebug-before 130) 133 (or (edebug-after 0 131 to-address) (edebug-after 0 132 to-list))))) (edebug-after (edebug-before 135) 151 (when (edebug-after (edebug-before 136) 144 (and (edebug-after (edebug-before 137) 139 (not (edebug-after 0 138 to-list))) (edebug-after (edebug-before 140) 142 (not (edebug-after 0 141 to-address))) (edebug-after 0 143 add-to-list))) (edebug-after (edebug-before 145) 150 (push (edebug-after (edebug-before 146) 148 (list (quote gnus-inews-add-to-address) (edebug-after 0 147 pgroup))) (edebug-after 0 149 message-send-actions))))))) (edebug-after (edebug-before 153) 155 (set-buffer (edebug-after 0 154 gnus-article-copy))) (edebug-after (edebug-before 156) 157 (gnus-msg-treat-broken-reply-to)) (edebug-after (edebug-before 158) 160 (message-wide-reply (edebug-after 0 159 to-address))))))) (edebug-after (edebug-before 163) 168 (when (edebug-after 0 164 yank) (edebug-after (edebug-before 165) 167 (gnus-inews-yank-articles (edebug-after 0 166 yank))))))))))))) # bind (executing-kbd-macro overriding-local-map overriding-terminal-local-map signal-hook-function pre-command-hook post-command-hook) # (unwind-protect ...) # bind (edebug-entered max-lisp-eval-depth max-specpdl-size debugger edebug-outside-debug-on-error edebug-outside-debug-on-quit debug-on-error debug-on-quit cl-lexical-debug edebug-outside-overriding-local-map edebug-outside-overriding-terminal-local-map edebug-outside-executing-macro edebug-outside-pre-command-hook edebug-outside-post-command-hook edebug-body edebug-args edebug-function) edebug-enter(gnus-post-news (post nil nil nil nil nil nil) (lambda nil (edebug-after (edebug-before 0) 4 (when (edebug-after 0 1 article-buffer) (edebug-after (edebug-before 2) 3 (gnus-copy-article-buffer)))) (edebug-after (edebug-before 5) 171 (let ((gnus-article-reply (edebug-after (edebug-before 6) 10 (and (edebug-after 0 7 article-buffer) (edebug-after (edebug-before 8) 9 (gnus-summary-article-number))))) (gnus-article-yanked-articles (edebug-after 0 11 yank)) (add-to-list (edebug-after 0 12 gnus-add-to-list))) (edebug-after (edebug-before 13) 170 (gnus-setup-message (edebug-after (edebug-before 14) 17 (cond ((edebug-after 0 15 yank) (quote reply-yank)) ((edebug-after 0 16 article-buffer) (quote reply)) (t (quote message)))) (edebug-after (edebug-before 18) 169 (let* ((group (edebug-after (edebug-before 19) 22 (or (edebug-after 0 20 group) (edebug-after 0 21 gnus-newsgroup-name)))) (charset (edebug-after (edebug-before 23) 25 (gnus-group-name-charset nil (edebug-after 0 24 group)))) (pgroup (edebug-after 0 26 group)) to-address to-group mailing-list to-list newsgroup-p) (edebug-after (edebug-before 27) 55 (when (edebug-after 0 28 group) (edebug-after (edebug-before 29) 54 (setq to-address (edebug-after (edebug-before 30) 32 (gnus-parameter-to-address (edebug-after 0 31 group))) to-group (edebug-after (edebug-before 33) 35 (gnus-group-find-parameter (edebug-after 0 34 group) (quote to-group))) to-list (edebug-after (edebug-before 36) 38 (gnus-parameter-to-list (edebug-after 0 37 group))) newsgroup-p (edebug-after (edebug-before 39) 41 (gnus-group-find-parameter (edebug-after 0 40 group) (quote newsgroup))) mailing-list (edebug-after (edebug-before 42) 48 (when (edebug-after 0 43 gnus-mailing-list-groups) (edebug-after (edebug-before 44) 47 (string-match (edebug-after 0 45 gnus-mailing-list-groups) (edebug-after 0 46 group))))) group (edebug-after (edebug-before 49) 53 (gnus-group-name-decode (edebug-after (edebug-before 50) 51 (gnus-group-real-name group)) (edebug-after 0 52 charset))))))) (edebug-after (edebug-before 56) 162 (if (edebug-after (edebug-before 57) 87 (or (edebug-after (edebug-before 58) 63 (and (edebug-after 0 59 to-group) (edebug-after (edebug-before 60) 62 (gnus-news-group-p (edebug-after 0 61 to-group))))) (edebug-after 0 64 newsgroup-p) (edebug-after 0 65 force-news) (edebug-after (edebug-before 66) 86 (and (edebug-after (edebug-before 67) 76 (gnus-news-group-p (edebug-after (edebug-before 68) 71 (or (edebug-after 0 69 pgroup) (edebug-after 0 70 gnus-newsgroup-name))) (edebug-after (edebug-before 72) 75 (or (edebug-after 0 73 header) (edebug-after 0 74 gnus-current-article))))) (edebug-after (edebug-before 77) 79 (not (edebug-after 0 78 mailing-list))) (edebug-after (edebug-before 80) 82 (not (edebug-after 0 81 to-list))) (edebug-after (edebug-before 83) 85 (not (edebug-after 0 84 to-address))))))) (edebug-after (edebug-before 88) 125 (if (edebug-after 0 89 post) (edebug-after (edebug-before 90) 102 (message-news (edebug-after (edebug-before 91) 101 (or (edebug-after 0 92 to-group) (edebug-after (edebug-before 93) 100 (and (edebug-after (edebug-before 94) 98 (not (edebug-after (edebug-before 95) 97 (gnus-virtual-group-p (edebug-after 0 96 pgroup))))) (edebug-after 0 99 group))))))) (edebug-after (edebug-before 103) 105 (set-buffer (edebug-after 0 104 gnus-article-copy))) (edebug-after (edebug-before 106) 107 (gnus-msg-treat-broken-reply-to)) (edebug-after (edebug-before 108) 124 (message-followup (edebug-after (edebug-before 109) 123 (if (edebug-after (edebug-before 110) 113 (or (edebug-after 0 111 newsgroup-p) (edebug-after 0 112 force-news))) (edebug-after (edebug-before 114) 121 (if (edebug-after (edebug-before 115) 120 (save-restriction (edebug-after (edebug-before 116) 117 (article-narrow-to-head)) (edebug-after (edebug-before 118) 119 (message-fetch-field "newsgroups")))) nil "")) (edebug-after 0 122 to-group))))))) (edebug-after (edebug-before 126) 161 (if (edebug-after 0 127 post) (edebug-after (edebug-before 128) 152 (progn (edebug-after (edebug-before 129) 134 (message-mail (edebug-after (edebug-before 130) 133 (or (edebug-after 0 131 to-address) (edebug-after 0 132 to-list))))) (edebug-after (edebug-before 135) 151 (when (edebug-after (edebug-before 136) 144 (and (edebug-after (edebug-before 137) 139 (not (edebug-after 0 138 to-list))) (edebug-after (edebug-before 140) 142 (not (edebug-after 0 141 to-address))) (edebug-after 0 143 add-to-list))) (edebug-after (edebug-before 145) 150 (push (edebug-after (edebug-before 146) 148 (list (quote gnus-inews-add-to-address) (edebug-after 0 147 pgroup))) (edebug-after 0 149 message-send-actions))))))) (edebug-after (edebug-before 153) 155 (set-buffer (edebug-after 0 154 gnus-article-copy))) (edebug-after (edebug-before 156) 157 (gnus-msg-treat-broken-reply-to)) (edebug-after (edebug-before 158) 160 (message-wide-reply (edebug-after 0 159 to-address))))))) (edebug-after (edebug-before 163) 168 (when (edebug-after 0 164 yank) (edebug-after (edebug-before 165) 167 (gnus-inews-yank-articles (edebug-after 0 166 yank))))))))))))) # bind (force-news subject yank article-buffer header group post) gnus-post-news(post nil) # bind (gnus-newsgroup-name gnus-article-copy arg) ad-Orig-gnus-summary-post-news(nil) # bind (ad-return-value arg) gnus-summary-post-news(nil) # bind (command-debug-status) call-interactively(gnus-summary-post-news) # (condition-case ... . error) # (catch top-level ...) _______________________________________________ XEmacs-Beta mailing list XEmacs-Beta(a)xemacs.org http://lists.xemacs.org/mailman/listinfo/xemacs-beta