[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
Re: Automatically executing a function at sending
From: |
Merciadri Luca |
Subject: |
Re: Automatically executing a function at sending |
Date: |
Wed, 20 Jan 2010 18:43:37 +0100 |
User-agent: |
Gnus/5.11 (Gnus v5.11) Emacs/22.2 (gnu/linux) |
-----BEGIN PGP SIGNED MESSAGE-----
Hash: SHA1
Richard Riley <rileyrgdev@gmail.com> writes:
> (your .sig separator should be "-- " btw)
Huh.. I know. This is a problem due to Mailcrypt, which seems to be
deprecated. Sorry, I still had no time. If you are interested (and
maybe highly motivated, depending on your perseverance) in this, you may read
http://www.mail-archive.com/info-gnus-english@gnu.org/msg07571.html.
>
> Does this help?
>
> ,----
> | (defun wicked/gnus-add-subject-to-bbdb-record ()
> | "Add datestamped subject note for each person this message has been sent
> to."
> | (let* ((subject (concat (format-time-string "%Y.%m.%d")
> | ": E-mail: " (message-fetch-field "Subject")
> "\n"))
> | (bbdb-get-addresses-headers
> | (list (assoc 'recipients bbdb-get-addresses-headers)))
> | records)
> | (setq records
> | (bbdb-update-records
> | (bbdb-get-addresses nil gnus-ignored-from-addresses
> 'gnus-fetch-field)
> | nil nil))
> | (mapc (lambda (rec)
> | (bbdb-record-putprop rec
> | 'contact
> | (concat subject
> | (or
> | (bbdb-record-getprop rec 'contact)
> | ""))))
> | records)))
> |
> | (add-hook 'message-send-hook 'wicked/gnus-add-subject-to-bbdb-record)
> `----
>
> I borrowed it from Sacha Chua's website.
I am going to try. I hope the
==
(add-hook 'message-send-hook 'wicked/gnus-add-subject-to-bbdb-record)
==
line does what I want. It would be so ... great!
- --
Merciadri Luca
See http://www.student.montefiore.ulg.ac.be/~merciadri/
-----BEGIN PGP SIGNATURE-----
Version: GnuPG v1.4.9 (GNU/Linux)
Comment: Processed by Mailcrypt 3.5.8 <http://mailcrypt.sourceforge.net/>
iEYEARECAAYFAktXQMgACgkQM0LLzLt8MhwHjQCfXsEUntZJObtxAhgvxjeEpOdb
AWIAnRky1mKRtMEt/ZfRWuIkYoC2Dv+s
=fKUS
-----END PGP SIGNATURE-----