Сегодня пытался подружить $subj. Выходит, но есть одна некузявость. А
именно, в случае, когда в BBDB нет attribution для юзера, by default
ставится firstname, а не initials. Вот мои сеттинги:
(require 'bbdb)
(bbdb-initialize 'supercite)
(bbdb-insinuate-sc)
(require 'supercite)
(add-hook 'mail-citation-hook 'sc-cite-original)
(setq sc-preferred-attribution-list
'("sc-lastchoice" "x-attribution" "sc-consult"
"initials"
"firstname" "lastname")
sc-attrib-selection-list
'(("sc-from-address"
((".*" . (bbdb/sc-consult-attr
(sc-mail-field "sc-from-address"))))))
sc-mail-glom-frame
'((begin (setq sc-mail-headers-start (point)))
("^x-attribution:[ \t]+.*$" (sc-mail-fetch-field t) nil t)
("^\\S +:.*$" (sc-mail-fetch-field) nil t)
("^$" (list (quote abort) (quote (step . 0))))
("^$" (progn (bbdb/sc-default) (list 'abort '(step . 0))))
("^[ \t]+" (sc-mail-append-field))
(sc-mail-warn-if-non-rfc822-p (sc-mail-error-in-mail-field))
(end (setq sc-mail-headers-end (point)))))
И, на всякий случай, версии:
,----[ C-h v bbdb-version RET ]
| `bbdb-version' is a variable declared in Lisp.
| -- loaded from "bbdb"
|
| Value: "2.32"
|
| Documentation:
| not documented as a variable.
`----
,----[ C-h v sc-version RET ]
| `sc-version' is a variable declared in Lisp.
| -- loaded from "supercite"
|
| Value: "3.1"
|
| Documentation:
| Supercite version number.
`----
,----[ C-h v emacs-version RET ]
| `emacs-version' is a variable declared in Lisp.
| -- loaded from "/var/tmp/xemacs-21.4.9/lisp/version.el"
|
| Value: "21.4 (patch 9) \"Informed Management\" XEmacs Lucid"
|
| Documentation:
| Version numbers of this version of XEmacs.
`----
Я так полагаю, на sc-consult обработка sc-preferred-attribution-list
заканчивается. Не совсем понимаю, куда попасть дальше. RTFS не
просветлил, документация -- тем более.
Кто-нибудь с этим копался?
--
With respect, Vasily Korytov
PGP key fingerprint: 123A 7CCE 6E26 6233 0D87 E01A A0F8 3524 FCD8 1841