>>>>> Robert wrote:
Robert> The defun is not efficient, but effective in VM. If it does
Robert> not do the job in Gnus, use edebug and post the gnus-enabled
Robert> version for other Gmane users ...
In gnus you must find the article-buffer so that you are looking at
the right spot. This is my go at it.
(defun rf-handle-gmane-address (net)
(let ((buf (get-buffer gnus-article-buffer)))
(if buf
(save-excursion
(goto-char (point-min))
(if (and (string-match "@public.gmane.org" net)
(re-search-forward (format "[^:,]*<%s>" net) (point-max) t))
(let ((ad (mail-extract-address-components (match-string 0)))
realnet)
(message "Found `%S' in headers! Doing realname search!" ad)
(and (car ad)
(setq realnet (bbdb-search-simple (car ad) nil))
(setq realnet (car (bbdb-record-net realnet)))
(setq net realnet))))
net))
net))
Yours
--
%% Mats
-------------------------------------------------------
The SF.Net email is sponsored by EclipseCon 2004
Premiere Conference on Open Tools Development and Integration
See the breadth of Eclipse activity. February 3-5 in Anaheim, CA.
http://www.eclipsecon.org/osdn
_______________________________________________
[EMAIL PROTECTED]
https://lists.sourceforge.net/lists/listinfo/bbdb-info
BBDB Home Page: http://bbdb.sourceforge.net/
