From mboxrd@z Thu Jan 1 00:00:00 1970 X-Msuck: nntp://news.gmane.io/gmane.emacs.gnus.user/2461 Path: news.gmane.org!not-for-mail From: deskpot@despammed.com (Vasily Korytov) Newsgroups: gmane.emacs.gnus.user Subject: Re: gnus 5.10.1: message-kill-to-signature doesn't? Date: Sat, 10 May 2003 22:30:52 +0400 Message-ID: <87of2a4psz.fsf@unix.home> References: <84fznm7meo.fsf@lucy.is.informatik.uni-duisburg.de> NNTP-Posting-Host: main.gmane.org Mime-Version: 1.0 Content-Type: text/plain; charset=koi8-r Content-Transfer-Encoding: 8bit X-Trace: sea.gmane.org 1138668883 15203 80.91.229.2 (31 Jan 2006 00:54:43 GMT) X-Complaints-To: usenet@sea.gmane.org NNTP-Posting-Date: Tue, 31 Jan 2006 00:54:43 +0000 (UTC) Original-X-From: nobody Tue Jan 17 17:30:44 2006 Original-Newsgroups: gnu.emacs.gnus Mail-Copies-To: never User-Agent: Gnus/5.1002 (Gnus v5.10.2) XEmacs/21.4 (Portable Code) Cancel-Lock: sha1:MBLHOZyimG9g87tRoV9wLq7fbUs= Original-NNTP-Posting-Host: h20.217.elnet.msk.ru Original-X-Trace: 10 May 2003 22:54:40 +0300, h20.217.elnet.msk.ru Original-Path: quimby.gnus.org!newsfeed1.e.nsc.no!nsc.no!nextra.com!news.tele.dk!news.tele.dk!small.news.tele.dk!newsfeed.icl.net!newsfeed.fjserv.net!newsfeed.gamma.ru!Gamma.RU!news.telekom.ru!unix.home!news Original-Xref: bridgekeeper.physik.uni-ulm.de gnus-emacs-gnus:2601 Original-Lines: 49 X-Gnus-Article-Number: 2601 Tue Jan 17 17:30:44 2006 Xref: news.gmane.org gmane.emacs.gnus.user:2461 Archived-At: On Sat, 10 May 2003 19:15:59 +0200, Kai Großjohann wrote: > Benjamin Rutt writes: > >> Maybe it should be changed so it really does kill all text up to the >> signature? I've attached a patch that does this. > > No! It would kill my name! > > (Actually, I stopped putting my name on the last line. Not sure why. > I've used the old style for this posting, for demonstration purposes.) Maybe, we should apply this to the current CVS: --8<------------------------schnipp------------------------->8--- 2003-05-10 Vasily Korytov * message.el (message-kill-to-signature): Use a [prefix] arg to determine, whether to delete the last line. --- gnus/lisp/message.el Sat May 10 19:05:12 2003 +++ lisp/message.el Sat May 10 22:27:06 2003 @@ -2612,13 +2612,16 @@ (when (message-goto-signature) (forward-line -2))) -(defun message-kill-to-signature () - "Deletes all text up to the signature." +(defun message-kill-to-signature (&optional arg) + "Deletes all text up to the signature. If an argument or prefix arg is +non-nil, leave the last line before the signature intact." (interactive) (let ((point (point))) (message-goto-signature) (unless (eobp) - (end-of-line -1)) + (if (or arg current-prefix-arg) + (forward-line -2) + (end-of-line -1))) (kill-region point (point)) (unless (bolp) (insert "\n")))) --8<------------------------schnapp------------------------->8--- So that C-u C-c C-z does the thing you want. -- I accept RFC3156 and RFC2440-compatible encrypted mail. PGP key fingerprint: 123A 7CCE 6E26 6233 0D87 E01A A0F8 3524 FCD8 1841