Re: removing signatures when using supercite

["Sebastian P. Luque" <spluque@gmail.com>]

On Wed, 09 Jun 2010 12:46:32 +0900,
Katsumi Yamaoka <yamaoka@jpl.org> wrote:

>>>>>> Sebastian P. Luque wrote:
>> I'd like to remove signatures when replying/following-up while using
>> `sc-cite-original' for `message-cite-function' (i.e. Supercite).  I
>> thought the following would do:

>> (add-hook 'mail-citation-hook 'message-remove-signature)

> I don't use Supercite but it doesn't seem to call mail-citation-hook.

Yet the Supercite manual says:

,-----[ (info "(sc)Getting Connected") lines: 576 - 580 ]
| In most cases, all that is necessary to begin using Supercite is to add
| the following to `~.emacs':
| 
|      (add-hook 'mail-citation-hook 'sc-cite-original)
`-----


> I guess `sc-pre-hook' is what you look for.

I've actually tried both this and `sc-post-hook', and something seems to
clash, as I'm popped to a message composition buffer, with mark and
point around the cited message, and then lines like the one below start
flashing every second or so in the minibuffer (and stored in
*Messages*):

Mail header "> Hi Sebas..." doesn't conform to RFC 822. skipping...
No mail headers found! Restoring old information.

starting from the first line in the cited message, down to the last
one.  I've tried adding `message-remove-signature' to both the end and
beginning of the hook to no avail:

,-----[ C-h v sc-pre-hook RET ]
| sc-pre-hook is a variable defined in `supercite.el'.
| Its value is shown below.
| 
|   This variable is potentially risky when used as a file local variable.
| 
| Documentation:
| Hook which gets run before each invocation of `sc-cite-original'.
| 
| You can customize this variable.
| 
| Value: 
| ((lambda nil
|    (save-excursion
|      (let
| 	 ((citexp
| 	   (format "^[%s %s]+ *$" sc-citation-leader sc-citation-delimiter)))
|        (while
| 	   (re-search-forward citexp nil t)
| 	 (replace-match "")))))
|  message-remove-signature)
| 
| [back]
`-----

The lambda hook above was installed by Supercite.

-- 
Seb