From mboxrd@z Thu Jan  1 00:00:00 1970
X-Msuck: nntp://news.gmane.io/gmane.emacs.gnus.user/309
Path: news.gmane.org!not-for-mail
From: ireneo.funes@virgilio.it
Newsgroups: gmane.emacs.gnus.user
Subject: Stripping double signatures
Date: 17 Apr 2002 20:13:46 GMT
Message-ID: <a9kl1q$46nfm$1@ID-113346.news.dfncis.de>
NNTP-Posting-Host: main.gmane.org
Mime-Version: 1.0
Content-Type: text/plain; charset=us-ascii
X-Trace: sea.gmane.org 1138667334 6386 80.91.229.2 (31 Jan 2006 00:28:54 GMT)
X-Complaints-To: usenet@sea.gmane.org
NNTP-Posting-Date: Tue, 31 Jan 2006 00:28:54 +0000 (UTC)
Original-X-From: nobody Tue Jan 17 17:27:24 2006
Original-Path: quimby.gnus.org!lackawana.kippona.com!stargate.gts.cz!fu-berlin.de!uni-berlin.de!62.98.220.247!not-for-mail
Original-Newsgroups: gnu.emacs.gnus
Original-NNTP-Posting-Host: 62.98.220.247
Original-X-Trace: fu-berlin.de 1019074426 4414966 62.98.220.247 (16 [113346])
X-Face: *M;aW*4qT:W`[;vg2y8k.H3te`.`Rm^C};h9}&2-h5_z-NfL
 yjp-A)?<xWB"'r(emEwJ0^eh_AL\=aLGz[$K8LPc)SA]>LPJO7OQfk=
 t4aip1hw*_1q*3Vk=guEuPo0W:|5eN&?h"M+cds/Y%>USW\DIcO**OE
User-Agent: Gnus/5.0808 (Gnus v5.8.8) XEmacs/21.4 (Common Lisp)
Original-Xref: bridgekeeper.physik.uni-ulm.de gnus-emacs-gnus:449
Original-Lines: 83
X-Gnus-Article-Number: 449   Tue Jan 17 17:27:24 2006
Xref: news.gmane.org gmane.emacs.gnus.user:309
Archived-At: <http://permalink.gmane.org/gmane.emacs.gnus.user/309>

On a mailing list, I get messages with signatures as follows:

| -- 
| <user signature>
| 
| 
| -- 
| To UNSUBSCRIBE, email to...

When I reply to such emails, only the latter sign gets stripped. Same
problem for what concerns proper face displaying.

Although being an elisp total beginner, I've tweaked message and
gnus-art this way:

*** message.el.old
--- message.el
***************
*** 1979,1986 ****
      (mml-quote-region start end)
      ;; Allow undoing.
      (undo-boundary)
!     (goto-char end)
!     (when (re-search-backward message-signature-separator start t)
        ;; Also peel off any blank lines before the signature.
        (forward-line -1)
        (while (looking-at "^[ \t]*$")
--- 1979,1986 ----
      (mml-quote-region start end)
      ;; Allow undoing.
      (undo-boundary)
!     (goto-char start)
!     (when (re-search-forward message-signature-separator end t)
        ;; Also peel off any blank lines before the signature.
        (forward-line -1)
        (while (looking-at "^[ \t]*$")

*** gnus-art.el.old
--- gnus-art.el
***************
*** 1925,1936 ****
    "Search the current buffer for the signature separator.
  Put point at the beginning of the signature separator."
    (let ((cur (point)))
!     (goto-char (point-max))
      (if (if (stringp gnus-signature-separator)
!           (re-search-backward gnus-signature-separator nil t)
          (let ((seps gnus-signature-separator))
            (while (and seps
!                       (not (re-search-backward (car seps) nil t)))
              (pop seps))
            seps))
        t
--- 1925,1936 ----
    "Search the current buffer for the signature separator.
  Put point at the beginning of the signature separator."
    (let ((cur (point)))
!     (goto-char (point-min))
      (if (if (stringp gnus-signature-separator)
!           (re-search-forward gnus-signature-separator nil t)
          (let ((seps gnus-signature-separator))
            (while (and seps
!                       (not (re-search-forward (car seps) nil t)))
              (pop seps))
            seps))
        t


Was there a better/easier way to do it?

It works fine, so far. Could I get some kind of side effects?


Thanks for your attention, bye!

-- 
Q: How many University of Chicago Economics professors does it take to
   change a light bulb?
A: None.  If the bulb needed fixing the market would have done it.


-- 
just in case you want to give it a try...