Re: Yet another attempt at more signing

[Simon Josefsson <jas@extundo.com>]

Simon Josefsson <jas@extundo.com> writes:

> On Wed, 27 Mar 2002, Paul Jarc wrote:
>
>> Simon Josefsson <jas@extundo.com> wrote:
>> > You need to run the hook before the --text follows this line-- stuff
>> > is replaced with a empty line.
>> 
>> Not that I've paid close attention to this thread, but I'd guess this
>> would also work, assuming you don't care about the cosmetic
>> difference:
>> (setq mail-header-separator "")
>
> IIRC, the code goes to point-max and then searches backwards for the
> delimiter.  I have no idea why, but it would break your approach if there
> are empty lines in the body.  I guess we should goto point-min and search
> forward instead, then you can bind mail-header-separator to "" and things
> would just work.  I'll change it tonight, unless someone beats me to it.

Done.  Perhaps this will work now:

(add-hook 'message-send-news-hook
          (lambda ()
	    (if (not (string= "one.particular.newsgroup" gnus-newsgroup-name))
		(let ((mail-header-separator ""))
		  (mml-secure-message-sign-pgpmime)))))