marklar <[EMAIL PROTECTED]> writes:

> From here, the question seems to be "how do I look at the header/
> body?"

Maybe this can help:

(defun bzg-gnus-goto-google ()
  (interactive)
  (when (memq major-mode '(gnus-summary-mode gnus-article-mode))
    (when (eq major-mode 'gnus-article-mode)
      (gnus-article-show-summary))
    (let* ((article (gnus-summary-article-number))
           (header (gnus-summary-article-header article))
           (id (substring (mail-header-id header) 1 -1)))
      (browse-url
       (format "http://groups.google.com/groups?selm=%s"; id)))))

This function will examin the message, pick up its message-id from the
header, then search the message on Google groups.

Make sure you check the docstring of these functions:

gnus-article-show-summary
gnus-summary-article-number
gnus-summary-article-header

HTH,

-- 
Bastien


_______________________________________________
info-gnus-english mailing list
info-gnus-english@gnu.org
http://lists.gnu.org/mailman/listinfo/info-gnus-english

Reply via email to