I often get mail messages with rfc2047 encoded from fields.
With the auto-retrieving functionality of BBDB and with Gnus, BBDB
stores these names decoded with accented characters or german
umlauts. After auto-retrieval I usually change manually the special
characters in BBDB (I do not want to send out mail messages with such
characters in the mail header) and add an appropriate tex-name field
(I like to see the proper name of that person in the paper version of
my address book).
When I get a second mail from that person (or visit the mail message
again for reading) I let BBDB create an aka field with the special
characters (like german umlauts or characters with accents). After
that, BBDB is quiet on further visits of mail messages from that
person.
However, things only work with the patch given below. Without the
patch, BBDB asks me whether I would like to add an aka "iso", which is
stupid.
Maybe the patch is useful to others and might go into the CVS
trunk. The patch makes use of function mail-decode-encoded-word-string
which seems to be available in Gnus since 1998.
diff -c
/scratch/home/lanz/programs/apps/share/emacs/site-lisp/bbdb/bbdb-hooks.el\~
/scratch/home/lanz/programs/apps/share/emacs/site-lisp/bbdb/bbdb-hooks.el
*** /scratch/home/lanz/programs/apps/share/emacs/site-lisp/bbdb/bbdb-hooks.el~
2004-05-18 12:40:44.000000000 +0200
--- /scratch/home/lanz/programs/apps/share/emacs/site-lisp/bbdb/bbdb-hooks.el
2005-03-11 19:00:08.766041000 +0100
***************
*** 242,248 ****
(save-restriction
(widen)
(goto-char marker)
! (setq from (bbdb-extract-field-value "FROM"))))
(setq record-exists (bbdb-annotate-message-sender from))
(or record-exists
(y-or-n-p (concat "Create BBDB record from " from "? "))))
--- 242,248 ----
(save-restriction
(widen)
(goto-char marker)
! (setq from (mail-decode-encoded-word-string
(bbdb-extract-field-value "FROM")))))
(setq record-exists (bbdb-annotate-message-sender from))
(or record-exists
(y-or-n-p (concat "Create BBDB record from " from "? "))))
Diff finished. Fri Mar 11 19:04:32 2005
