[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

Re: Signature?



On Fri, 26 Nov 2010 08:57:16 +0800, James Harkins <jamshark70@gmail.com> wrote:

> At Thu, 25 Nov 2010 10:47:28 -0800,
> Erik Hetzner wrote:
> > What about this thread?
> >
> > http://thread.gmane.org/gmane.mail.wanderlust.general/2814/focus=2810
> 
> Still no. I have this in .emacs:
> 
> (setq signature-separator "----
> ")
> (setq signature-insert-at-eof t)
> 
> (setq wl-draft-config-alist
>      `(("^From: .*myaddress.*"
>         ;; ...
>         (signature . ,(expand-file-name "~/.signature"))
>         ;; or (bottom-file . ,(expand-file-name "~/.signature"))
>         )
>        )
> )
> 
> And this in .wl:
> 
> (unless (assq 'signature wl-draft-config-sub-func-alist)
>  (wl-append wl-draft-config-sub-func-alist
>     '((signature . wl-draft-config-sub-signature))))
> 
> (defun wl-draft-config-sub-signature (content)
>  (require 'signature)
>  (let ((signature-file-name content))
>    (goto-char (mime-edit-content-end))
>    (mime-edit-insert-signature)))
> 
> No apparent difference in behavior (unless I send this and find magically that the sig is added upon send).

The above looks like different ways of getting the desired behaviour
all applied simultaneously broke something.

From
http://dis-dot-dat.blogspot.com/2010/04/my-wanderlust-setup.html

;Auto add signature on draft edit
(remove-hook 'wl-draft-send-hook 'wl-draft-config-exec)
(add-hook 'wl-mail-setup-hook 'wl-draft-config-exec)
(setq wl-draft-config-alist
'(((string-match "1" "1")
(bottom . "\n--\n") (bottom-file . ".signature"))
))


The important thing is the remove/add hook.

Cheers,
Jonathan
--
jjg: Jonathan J. Groll : groll co za
has_one { :blog => "http://bloggroll.com"; }
Reine, reine gueux éveille
Gomme à gaine, en horreur, taie.