sacha chua :: enterprise 2.0 consultant, storyteller, geek » lisp http://sachachua.com/wp I help people connect through blogs, wikis, other Web 2.0 tools. I'm also writing a book about Emacs. Thu, 04 Sep 2008 17:24:15 +0000 http://wordpress.org/?v=2.6.1 en More Emacs fun: Composing mail to everyone with notes http://sachachua.com/wp/2006/09/01/more-emacs-fun-composing-mail-to-everyone-with-notes/ http://sachachua.com/wp/2006/09/01/more-emacs-fun-composing-mail-to-everyone-with-notes/#comments Fri, 01 Sep 2006 16:24:00 +0000 Sacha Chua http://sachachua.com/notebook/wiki/2006.09.01.php#anchor-4 (defun sacha/compose-mail-to-everyone (&optional subject) (mapc (lambda (rec) (setq rec (car rec)) (when (bbdb-record-net rec) (bbdb-send-mail rec subject) (save-excursion (message-goto-signature) (forward-line -2) (insert "\n---- NOTES ---\n" (bbdb-record-notes rec) "\n")))) bbdb-records)) (defun sacha/gnus-delete-notes () (goto-char (point-min)) (when (re-search-forward "^--- NOTES ---" nil t) (goto-char (match-beginning 0)) (message-kill-to-signature))) (add-hook 'message-send-hook 'sacha/gnus-delete-notes)

On Technorati: , , , , ,

]]> (defun sacha/compose-mail-to-everyone (&optional subject) (mapc (lambda (rec) (setq rec (car rec)) (when (bbdb-record-net rec) (bbdb-send-mail rec subject) (save-excursion (message-goto-signature) (forward-line -2) (insert "\n---- NOTES ---\n" (bbdb-record-notes rec) "\n")))) bbdb-records)) (defun sacha/gnus-delete-notes () (goto-char (point-min)) (when (re-search-forward "^--- NOTES ---" nil t) (goto-char (match-beginning 0)) (message-kill-to-signature))) (add-hook 'message-send-hook 'sacha/gnus-delete-notes)

On Technorati: , , , , ,

]]> http://sachachua.com/wp/2006/09/01/more-emacs-fun-composing-mail-to-everyone-with-notes/feed/ Emacs: Keep track of messages sent http://sachachua.com/wp/2006/09/01/emacs-keep-track-of-messages-sent/ http://sachachua.com/wp/2006/09/01/emacs-keep-track-of-messages-sent/#comments Fri, 01 Sep 2006 16:06:00 +0000 Sacha Chua http://sachachua.com/notebook/wiki/2006.09.01.php#anchor-2 Because a Big Brother Database of my contacts isn't complete if I don't keep track of what e-mail I sent them and when I sent it, this bit of Emacs Lisp code adds Gnus subjects to the BBDB records of the people to whom I sent e-mail.

(defun sacha/gnus-add-subject-to-bbdb-record ()
  "Add datestamped subject note for each person this message has been sent to."
  (let* ((subject (concat (planner-today)
                          ": 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-set-notes rec
                                   (concat subject
                                           (bbdb-record-notes rec))))
            records)))
(add-hook 'message-send-hook 'sacha/gnus-add-subject-to-bbdb-record)

It should be really easy to set up Gnus to expand some kind of !followup macro into a TODO item in my planner and an "I hope to hear from you by ....". Ridiculously easy with Emacs Lisp and an insanely customizable editor, but I might not have enough battery life. I've got 28 minutes, and then I'm off PC for a while.

On Technorati: , , , ,

/mnt/media/sacha/notebook/emacs/dotgnus.el

]]> Because a Big Brother Database of my contacts isn't complete if I don't keep track of what e-mail I sent them and when I sent it, this bit of Emacs Lisp code adds Gnus subjects to the BBDB records of the people to whom I sent e-mail.

(defun sacha/gnus-add-subject-to-bbdb-record ()
  "Add datestamped subject note for each person this message has been sent to."
  (let* ((subject (concat (planner-today)
                          ": 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-set-notes rec
                                   (concat subject
                                           (bbdb-record-notes rec))))
            records)))
(add-hook 'message-send-hook 'sacha/gnus-add-subject-to-bbdb-record)

It should be really easy to set up Gnus to expand some kind of !followup macro into a TODO item in my planner and an "I hope to hear from you by ....". Ridiculously easy with Emacs Lisp and an insanely customizable editor, but I might not have enough battery life. I've got 28 minutes, and then I'm off PC for a while.

On Technorati: , , , ,

/mnt/media/sacha/notebook/emacs/dotgnus.el

]]> http://sachachua.com/wp/2006/09/01/emacs-keep-track-of-messages-sent/feed/