From mboxrd@z Thu Jan 1 00:00:00 1970 X-Msuck: nntp://news.gmane.io/gmane.emacs.gnus.general/13645 Path: main.gmane.org!not-for-mail From: Kim-Minh Kaplan Newsgroups: gmane.emacs.gnus.general Subject: Re: PATCH: Don't quote signature (was: Re: GNKSA and Gnus) Date: 15 Jan 1998 00:57:06 +0100 Sender: owner-ding@hpc.uh.edu Message-ID: References: <199712280107.UAA02498@mail.interpath.net> NNTP-Posting-Host: coloc-standby.netfonds.no Mime-Version: 1.0 (generated by SEMI MIME-Edit 0.91 - "Hinomiko") Content-Type: multipart/mixed; boundary="Multipart_Thu_Jan_15_00:57:06_1998-1" Content-Transfer-Encoding: 7bit X-Trace: main.gmane.org 1035152972 10318 80.91.224.250 (20 Oct 2002 22:29:32 GMT) X-Complaints-To: usenet@main.gmane.org NNTP-Posting-Date: Sun, 20 Oct 2002 22:29:32 +0000 (UTC) Cc: ding@gnus.org 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 QAA13950 for ; Wed, 14 Jan 1998 16:11:02 -0800 Original-Received: from sina.hpc.uh.edu (root@Sina.HPC.UH.EDU [129.7.3.5]) by xemacs.org (8.8.5/8.8.5) with ESMTP id SAA11114 for ; Wed, 14 Jan 1998 18:09:00 -0600 (CST) Original-Received: from sina.hpc.uh.edu (lists@Sina.HPC.UH.EDU [129.7.3.5]) by sina.hpc.uh.edu (8.7.3/8.7.3) with ESMTP id SAH16283; Wed, 14 Jan 1998 18:09:12 -0600 (CST) Original-Received: by sina.hpc.uh.edu (TLB v0.09a (1.20 tibbs 1996/10/09 22:03:07)); Wed, 14 Jan 1998 18:08:24 -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 SAA16270 for ; Wed, 14 Jan 1998 18:08:15 -0600 (CST) Original-Received: (qmail 1878 invoked by uid 504); 15 Jan 1998 00:08:01 -0000 Original-Received: (qmail 1873 invoked from network); 15 Jan 1998 00:07:59 -0000 Original-Received: from lombric.s-ip.eunet.fr (193.107.197.179) by claymore.vcinet.com with SMTP; 15 Jan 1998 00:07:54 -0000 Original-Received: (from kaplan@localhost) by lombric.s-ip.eunet.fr (8.8.5/8.8.5) id AAA03736; Thu, 15 Jan 1998 00:57:07 +0100 Original-To: Per Abrahamsen X-Face: C!5Mk_!qB]35}VpD|H>GN/@fk%~7:*/x8&~\]|r|)/zV?rJ){uX4Nh`a$L/z__Kx4Gt!mDU 3kZlj)F2]Ds$?l';SO9]v^|[i2nY`pZ+mu+HT%5ITkuP#e]@8F4@Hc.=]oN1+d\M@Rl>-$C?h$yntf -JVx)3L2}VzG.!bQEy]~I_3fup`HtZ^t/Iz.|Vh$~o`^g\ In-Reply-To: Per Abrahamsen's message of "13 Jan 1998 16:58:34 +0100" Original-Lines: 44 X-Mailer: Quassia Gnus v0.22/XEmacs 20.3 - "Vatican City" X-Emacs: 20.3 "Vatican City" XEmacs Lucid without mule Precedence: list X-Majordomo: 1.94.jlt7 Xref: main.gmane.org gmane.emacs.gnus.general:13645 X-Report-Spam: http://spam.gmane.org/gmane.emacs.gnus.general:13645 --Multipart_Thu_Jan_15_00:57:06_1998-1 Content-Type: text/plain; charset=US-ASCII Per Abrahamsen writes: > Here is a patch to `message-cite-original' which simply doesn't quote > the signature. I think that in the rare cases where the user *want* > to quote the signature, he can just cut and paste it manually. Gnus can put the quoted signature in the kill ring. Then pasting is really easy. Hmm, may be an empty kill should be added even when there is no signature for consistency... What do you think ? Kim-Minh. --Multipart_Thu_Jan_15_00:57:06_1998-1 Content-Type: text/plain; charset=US-ASCII --- /usr/local/lib/xemacs/gnus/lisp/message.el Tue Jan 6 07:48:40 1998 +++ /usr/tmp/message.el Thu Jan 15 00:47:04 1998 @@ -1690,18 +1690,26 @@ (defun message-cite-original () "Cite function in the standard Message manner." (let ((start (point)) + (end (mark t)) + sig-start (functions (when message-indent-citation-function (if (listp message-indent-citation-function) message-indent-citation-function (list message-indent-citation-function))))) + (goto-char end) + (when (re-search-backward "^-- $" start t) + (setq sig-start (point-marker))) (goto-char start) (while functions (funcall (pop functions))) (when message-citation-line-function (unless (bolp) (insert "\n")) - (funcall message-citation-line-function)))) + (funcall message-citation-line-function)) + (when sig-start + (kill-region sig-start (mark t)) + (set-marker sig-start nil)))) (defun message-insert-citation-line () "Function that inserts a simple citation line." --Multipart_Thu_Jan_15_00:57:06_1998-1--