From mboxrd@z Thu Jan 1 00:00:00 1970 X-Msuck: nntp://news.gmane.io/gmane.emacs.gnus.general/14658 Path: main.gmane.org!not-for-mail From: Newsgroups: gmane.emacs.gnus.general Subject: [patch] 0.37 gnus-article-edit-article fix Date: 19 Mar 1998 10:47:58 +0200 Sender: owner-ding@hpc.uh.edu Message-ID: Reply-To: jari.aalto@ntc.nokia.com NNTP-Posting-Host: coloc-standby.netfonds.no Mime-Version: 1.0 (generated by tm-edit 7.106) Content-Type: multipart/mixed; boundary="Multipart_Thu_Mar_19_10:47:58_1998-1" Content-Transfer-Encoding: 7bit X-Trace: main.gmane.org 1035153814 17475 80.91.224.250 (20 Oct 2002 22:43:34 GMT) X-Complaints-To: usenet@main.gmane.org NNTP-Posting-Date: Sun, 20 Oct 2002 22:43:34 +0000 (UTC) Return-Path: Original-Received: from xemacs.org (xemacs.cs.uiuc.edu [128.174.252.16]) by altair.xemacs.org (8.8.8/8.8.8) with ESMTP id AAA13700 for ; Thu, 19 Mar 1998 00:50:31 -0800 Original-Received: from gizmo.hpc.uh.edu (gizmo.hpc.uh.edu [129.7.102.31]) by xemacs.org (8.8.5/8.8.5) with ESMTP id CAA20102 for ; Thu, 19 Mar 1998 02:49:06 -0600 (CST) 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 DAN30164; Thu, 19 Mar 1998 03:24:21 -0600 Original-Received: by sina.hpc.uh.edu (TLB v0.09a (1.20 tibbs 1996/10/09 22:03:07)); Thu, 19 Mar 1998 02:48:31 -0600 (CST) Original-Received: from claymore.vcinet.com (claymore.vcinet.com [208.205.12.23]) by sina.hpc.uh.edu (8.7.3/8.7.3) with SMTP id CAA20263 for ; Thu, 19 Mar 1998 02:48:19 -0600 (CST) Original-Received: (qmail 17801 invoked by uid 504); 19 Mar 1998 08:48:07 -0000 Original-Received: (qmail 17798 invoked from network); 19 Mar 1998 08:48:06 -0000 Original-Received: from axl01it.ntc.nokia.com (131.228.118.232) by claymore.vcinet.com with SMTP; 19 Mar 1998 08:48:06 -0000 Original-Received: from zeus.tele.nokia.fi (zeus.tele.nokia.fi [131.228.134.50]) by axl01it.ntc.nokia.com (8.8.5/8.6.9) with SMTP id KAA17596 for ; Thu, 19 Mar 1998 10:48:01 +0200 (EET) Original-Received: from tre.tele.nokia.fi (styx.ntc.nokia.com [131.228.169.57]) by zeus.tele.nokia.fi (8.6.4/8.6.4) with ESMTP id KAA03893 for ; Thu, 19 Mar 1998 10:51:38 +0200 Original-Received: by tre.tele.nokia.fi (1.39.111.2/16.2) id AA213747278; Thu, 19 Mar 1998 10:47:58 +0200 Original-To: Ding mailing list X-Info: Quassia Gnus v0.37 Original-Lines: 53 X-Mailer: Quassia Gnus v0.37/Emacs 19.34 Precedence: list X-Majordomo: 1.94.jlt7 Xref: main.gmane.org gmane.emacs.gnus.general:14658 X-Report-Spam: http://spam.gmane.org/gmane.emacs.gnus.general:14658 --Multipart_Thu_Mar_19_10:47:58_1998-1 Content-Type: text/plain; charset=US-ASCII I received a PGP message, hwere gnus buttons were added in the middle of PGP block: noRr110XVahfo/3MaLL2PGlJ/h8rOdZkJCPCQ1OO8BKcXg3NQWTb+RpqSbSRnbEq [...] win0apLYccO+tqhhzK3CIiDbgBGfQLNU9ju+nMOOm1VUfF2A/phMoQg6ucYrXFxk But I was suprised when I entered edit mode that the buttons were still there. I would have expected that gnus-original-article-buffer were offered for me to edit This patch copies gnus-original-article-buffer to the edit buffer so that used really edits the original content. jari --Multipart_Thu_Mar_19_10:47:58_1998-1 Content-Type: application/octet-stream; type=patch Content-Disposition: attachment; filename="gnus-art.el.diff" Content-Transfer-Encoding: 7bit Prereq: 1.37 =================================================================== RCS file: RCS/gnus-art.el,v retrieving revision 1.37 retrieving revision 1.38 diff -ubw -r1.37 -r1.38 --- 1.37 1998/03/19 08:21:51 +++ 1.38 1998/03/19 08:41:53 @@ -2620,6 +2620,14 @@ (let ((winconf (current-window-configuration))) (set-buffer gnus-article-buffer) (gnus-article-edit-mode) + ;; + ;; Give user the original article for editing. This + ;; *Article* buffer may have been formatted by variaous gnus functions. + ;; + (delete-region (point-min) (point-max)) + (unless (buffer-live-p (get-buffer gnus-original-article-buffer)) + (error "Can't find orginal buffer: %s" gnus-original-article-buffer)) + (insert-buffer gnus-original-article-buffer) (gnus-set-text-properties (point-min) (point-max) nil) (gnus-configure-windows 'edit-article) (setq gnus-article-edit-done-function exit-func) --Multipart_Thu_Mar_19_10:47:58_1998-1--