From mboxrd@z Thu Jan 1 00:00:00 1970 X-Msuck: nntp://news.gmane.io/gmane.emacs.gnus.general/17023 Path: main.gmane.org!not-for-mail From: Shenghuo ZHU Newsgroups: gmane.emacs.gnus.general Subject: Re: bug during gnus-summary-move-article Date: 13 Sep 1998 00:00:59 -400 Organization: Computer Dept of U Rochester Sender: owner-ding@hpc.uh.edu Message-ID: <2nemtg3blw.fsf@zsh.cs.rochester.edu> References: <2nyarpcgeb.fsf@zsh.cs.rochester.edu> NNTP-Posting-Host: coloc-standby.netfonds.no X-Trace: main.gmane.org 1035155797 31195 80.91.224.250 (20 Oct 2002 23:16:37 GMT) X-Complaints-To: usenet@main.gmane.org NNTP-Posting-Date: Sun, 20 Oct 2002 23:16:37 +0000 (UTC) Return-Path: Original-Received: from gizmo.hpc.uh.edu (gizmo.hpc.uh.edu [129.7.102.31]) by sclp3.sclp.com (8.8.5/8.8.5) with ESMTP id XAA15258 for ; Sat, 12 Sep 1998 23:56:16 -0400 (EDT) Original-Received: from sina.hpc.uh.edu (sina.hpc.uh.edu [129.7.3.5]) by gizmo.hpc.uh.edu (8.7.6/8.7.3) with ESMTP id WAF19369; Sat, 12 Sep 1998 22:27:15 -0500 Original-Received: by sina.hpc.uh.edu (TLB v0.09a (1.20 tibbs 1996/10/09 22:03:07)); Sat, 12 Sep 1998 22:55:52 -0500 (CDT) Original-Received: from sclp3.sclp.com (root@sclp3.sclp.com [209.195.19.139]) by sina.hpc.uh.edu (8.7.3/8.7.3) with ESMTP id WAA08090 for ; Sat, 12 Sep 1998 22:55:43 -0500 (CDT) Original-Received: from cayuga.cs.rochester.edu (cayuga.cs.rochester.edu [192.5.53.209]) by sclp3.sclp.com (8.8.5/8.8.5) with SMTP id XAA15235 for ; Sat, 12 Sep 1998 23:55:36 -0400 (EDT) Original-Received: from slate.cs.rochester.edu (slate.cs.rochester.edu [192.5.53.101]) by cayuga.cs.rochester.edu (8.6.9/O) with ESMTP id XAA09818 for ; Sat, 12 Sep 1998 23:55:34 -0400 Original-Received: from brain.cs.rochester.edu (heart.cs.rochester.edu [192.5.53.109]) by slate.cs.rochester.edu (8.6.9/O) with ESMTP id XAA25386 for ; Sat, 12 Sep 1998 23:55:30 -0400 Original-Received: (from zsh@localhost) by brain.cs.rochester.edu (8.9.0/8.8.5) id AAA08461; Sun, 13 Sep 1998 00:00:59 -0400 Original-To: ding@gnus.org X-Attribution: ZSH In-Reply-To: Shenghuo ZHU's message of "12 Sep 1998 14:52:44 -400" Original-Lines: 59 User-Agent: Gnus/5.070029 (Pterodactyl Gnus v0.29) Emacs/20.3 Precedence: list X-Majordomo: 1.94.jlt7 Xref: main.gmane.org gmane.emacs.gnus.general:17023 X-Report-Spam: http://spam.gmane.org/gmane.emacs.gnus.general:17023 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