From mboxrd@z Thu Jan 1 00:00:00 1970 X-Msuck: nntp://news.gmane.io/gmane.emacs.gnus.general/13620 Path: main.gmane.org!not-for-mail From: Per Abrahamsen Newsgroups: gmane.emacs.gnus.general Subject: PATCH: Don't quote signature (was: Re: GNKSA and Gnus) Date: 13 Jan 1998 16:58:34 +0100 Organization: The Church of Emacs 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 Content-Type: text/plain; charset=US-ASCII Content-Transfer-Encoding: 7bit X-Trace: main.gmane.org 1035152951 10179 80.91.224.250 (20 Oct 2002 22:29:11 GMT) X-Complaints-To: usenet@main.gmane.org NNTP-Posting-Date: Sun, 20 Oct 2002 22:29:11 +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 LAA00057 for ; Tue, 13 Jan 1998 11:21:55 -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 NAA19159 for ; Tue, 13 Jan 1998 13:23:29 -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 JAH13363; Tue, 13 Jan 1998 10:00:27 -0600 (CST) Original-Received: by sina.hpc.uh.edu (TLB v0.09a (1.20 tibbs 1996/10/09 22:03:07)); Tue, 13 Jan 1998 09:59:03 -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 JAA13346 for ; Tue, 13 Jan 1998 09:58:54 -0600 (CST) Original-Received: (qmail 27178 invoked by uid 504); 13 Jan 1998 15:58:41 -0000 Original-Received: (qmail 27175 invoked from network); 13 Jan 1998 15:58:39 -0000 Original-Received: from elc1.dina.kvl.dk (130.225.40.228) by claymore.vcinet.com with SMTP; 13 Jan 1998 15:58:38 -0000 Original-Received: from zuse.dina.kvl.dk (zuse.dina.kvl.dk [130.225.40.245]) by elc1.dina.kvl.dk (8.6.12/8.6.4) with ESMTP id QAA28031; Tue, 13 Jan 1998 16:58:26 +0100 Original-Received: (abraham@localhost) by zuse.dina.kvl.dk (8.6.12/8.6.4) id QAA08893; Tue, 13 Jan 1998 16:58:34 +0100 Original-To: ding@gnus.org X-Face: +kRV2]2q}lixHkE{U)mY#+6]{AH=yN~S9@IFiOa@X6?GM|8MBp/ In-Reply-To: Lars Magne Ingebrigtsen's message of 12 Jan 1998 23:15:25 +0100 Original-Lines: 37 X-Mailer: Gnus v5.5/Emacs 20.2 Precedence: list X-Majordomo: 1.94.jlt7 Xref: main.gmane.org gmane.emacs.gnus.general:13620 X-Report-Spam: http://spam.gmane.org/gmane.emacs.gnus.general:13620 Lars Magne Ingebrigtsen writes: > Providing an alternative to `message-cite-original' that removes the > signature might be nice. 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. 1998-01-13 Per Abrahamsen * gnus/message.el (message-cite-original): Don't quote signature. cd /pack/emacs-20/share/emacs/20.2/lisp/gnus/ diff -c message.el~ message.el *** message.el~ Fri Sep 5 08:12:49 1997 --- message.el Tue Jan 13 16:56:11 1998 *************** *** 1598,1608 **** --- 1598,1612 ---- (defun message-cite-original () "Cite function in the standard Message manner." (let ((start (point)) + (end (mark t)) (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) + (delete-region (point) end)) (goto-char start) (while functions (funcall (pop functions))) Compilation exited abnormally with code 1 at Tue Jan 13 16:57:05