[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.