From: Shenghuo ZHU <zsh@cs.rochester.edu>
Subject: Re: bug during gnus-summary-move-article
Date: 13 Sep 1998 00:00:59 -400 [thread overview]
Message-ID: <2nemtg3blw.fsf@zsh.cs.rochester.edu> (raw)
In-Reply-To: Shenghuo ZHU's message of "12 Sep 1998 14:52:44 -400"
The previous patch bring "\201" bug only when copy-article.
This patch should works for both move-article and copy-aricle.
Please check whether similar bugs exist in functions calling
gnus-request-article-this-buffer.
--
Shenghuo
----------------------------------------------------------
diff -ru pgnus-0.29/lisp/gnus-art.el pgnus-new/lisp/gnus-art.el
--- pgnus-0.29/lisp/gnus-art.el Sat Sep 12 03:15:35 1998
+++ pgnus-new/lisp/gnus-art.el Sat Sep 12 23:44:31 1998
@@ -2535,7 +2535,7 @@
(gnus-check-server (gnus-find-method-for-group gnus-newsgroup-name))
(gnus-request-group gnus-newsgroup-name t)))
-(defun gnus-request-article-this-buffer (article group)
+(defun gnus-request-article-this-buffer (article group &optional no-decode)
"Get an article and insert it into this buffer."
(let (do-update-line sparse-header)
(prog1
@@ -2668,8 +2668,9 @@
(insert-buffer-substring gnus-article-buffer))
(setq gnus-original-article (cons group article))))
- ;; Decode charsets.
- (run-hooks 'gnus-article-decode-hook)
+ (unless no-decode
+ ;; Decode charsets.
+ (run-hooks 'gnus-article-decode-hook))
;; Update sparse articles.
(when (and do-update-line
diff -ru pgnus-0.29/lisp/gnus-sum.el pgnus-new/lisp/gnus-sum.el
--- pgnus-0.29/lisp/gnus-sum.el Sat Sep 12 03:15:36 1998
+++ pgnus-new/lisp/gnus-sum.el Sat Sep 12 23:45:58 1998
@@ -6920,15 +6920,15 @@
gnus-newsgroup-name)) ; Server
(list 'gnus-request-accept-article
to-newsgroup (list 'quote select-method)
- (not articles)) ; Accept form
+ (not articles) t) ; Accept form
(not articles))) ; Only save nov last time
;; Copy the article.
((eq action 'copy)
(save-excursion
(set-buffer copy-buf)
- (when (gnus-request-article-this-buffer article gnus-newsgroup-name)
+ (when (gnus-request-article-this-buffer article gnus-newsgroup-name t)
(gnus-request-accept-article
- to-newsgroup select-method (not articles)))))
+ to-newsgroup select-method (not articles) t))))
;; Crosspost the article.
((eq action 'crosspost)
(let ((xref (message-tokenize-header
prev parent reply other threads:[~1998-09-13 4:00 UTC|newest]
Thread overview: 3+ messages / expand[flat|nested] mbox.gz Atom feed top
1998-09-12 18:52 Shenghuo ZHU
1998-09-13 2:53 ` Shenghuo ZHU
1998-09-13 4:00 ` Shenghuo ZHU [this message]
Reply instructions:
You may reply publicly to this message via plain-text email
using any one of the following methods:
* Save the following mbox file, import it into your mail client,
and reply-to-all from there: mbox
Avoid top-posting and favor interleaved quoting:
https://en.wikipedia.org/wiki/Posting_style#Interleaved_style
* Reply using the --to, --cc, and --in-reply-to
switches of git-send-email(1):
git send-email \
--in-reply-to=2nemtg3blw.fsf@zsh.cs.rochester.edu \
--to=zsh@cs.rochester.edu \
/path/to/YOUR_REPLY
https://kernel.org/pub/software/scm/git/docs/git-send-email.html
* If your mail client supports setting the In-Reply-To header
via mailto: links, try the mailto: link
Be sure your reply has a Subject: header at the top and a blank line
before the message body.
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).