Re: secure method

[Julien Avarre <julien@avarre.com>]

deskpot@despammed.com (Vasily Korytov) disait récemment  :

> On Tue, 08 Apr 2003 00:36:13 +0200, Julien Avarre wrote:
> 
> >    (add-hook 'message-setup-hook 'mml-secure-message-sign-pgpmime)
> >
> >
> > It allows me to automatically put the pattern in my message :
> >
> >                   <#secure method=pgpmime mode=sign>
> >
> > But when I reply  to a message, this pattern is written  at the end of
> > quoted text.  Gnus do not interpret  it. I have to move it manually to
> > the beginning of the body :-(
> >
> > Is there a way to avoid that, automatize this ?
> 
> Yup. There is gnus-message-setup-hook. Unless, you want to sign not all
> the messages, it works. If it's not the case, huge constructions like
> this appear:
> 
> (add-hook 'message-setup-hook 'mml-vk-maybe-sign)
> (add-hook 'gnus-message-setup-hook 'mml-vk-maybe-sign)
> (add-hook 'gnus-message-setup-hook 'mml-vk-remove-broken-sign)
> (add-hook 'tc-pre-hook 'mml-unsecure-message) ;; or sc-pre-hook, or whatever
> 
> ;; Should we sign the message
> ;;
> (defun mml-vk-maybe-sign ()
>   "Sign the message with PGP/MIME (if mml-vk-maybe-sign-pgpmime is bound
> and returns anything, but nil) or PGP (same with mml-vk-maybe-sign-pgp)."
>   (interactive)
>   (cond ((and (fboundp 'mml-vk-maybe-sign-pgpmime) (mml-vk-maybe-sign-pgpmime))
> 	 (mml-secure-message-sign-pgpmime))
> 	((and (fboundp 'mml-vk-maybe-sign-pgp) (mml-vk-maybe-sign-pgp))
> 	 (mml-secure-message-sign-pgp))))
> 
> ;; sign all the mail messages (gmane.* newsgroups are mailing lists)
> (defun mml-vk-maybe-sign-pgpmime ()
>   (cond ((message-mail-p)
> 	 t)
> 	((message-news-p)
> 	 (let ((groups (message-fetch-field "Newsgroups")))
> 	   (if (and groups (string= (substring groups 0 6) "gmane."))
> 	       t)))))
> 
> ;; sign all the news messages, except fido7 hierarchy
> ;(defun mml-vk-maybe-sign-pgp ()
> ;  (if (message-news-p)
> ;      (let ((groups (message-fetch-field "Newsgroups")))
> ;	(if (and groups (not (string= (substring groups 0 6) "fido7.")))
> ;	    t))))
> 
> (defun mml-vk-remove-broken-sign ()
>   "Remove a \"^<\#secure method=pgpmime mode=sign>$\" below the first line
> of the message body."
>   (interactive)
>   (save-excursion
>     (message-goto-body)
>     (forward-line)
>     (when (search-forward-regexp "^<\#secure method=pgpmime mode=sign>$" nil t)
>       (delete-region (point-at-bol) (point-at-eol))
>       (unless (eq (point) (point-max))
> 	(delete-char)))))


Salut,   voilà   ce   qui   est   sensé   régler   nos   problème   de
mml-sign-truc-muche.   J'ai testé, mais  je ne  suis pas  convaincu du
tout. Mais peut-être que j'ai pas  fait tout comme il faut, où bien il
y a une coquille, mais je ne l'ai pas vue.

Fais moi part de tes commentaire.

-- 
Julien ``Eole'' Avarre
julien at avarre dot com