Re: [patch] More buttons for emacs stuff, MIDs, mail addresses

[Reiner Steib <4uce.02.r.steib@gmx.net>]

On Wed, Oct 16 2002, Raymond Scholz wrote:

> An option would be calling pi's Perl script from Gnus and parsing
> the output.

Does it make sense that the user is still prompted when the script
says "mail"? (I'm not sure.)

> (defun rs-is-mid (mid-or-mail)
>   (string-match
>    "-> m-id$"
[...]

We could add pre-defined function for both, pi's script
(id-or-mail.pl) and Florian Weimer's script (message-id-or-email.pl).

What do you think about the following? (Could you test it, please?)

--8<---------------cut here---------------start------------->8---
(defcustom gnus-button-guess-mid-external-name
  "id-or-mail.pl"
  "Program for guessing if a given string is a message IDs or mail address.
See the variable `gnus-button-prefer-mid-or-mail'.  The program must read a
string (message IDs or mail address) from stdin and print
`gnus-button-guess-mid-external-mid-regexp' on stdout iff the string is a
message ID.  If you change the program you probably need to change the
variable `gnus-button-guess-mid-external-mid-regexp' too.  See
<URL:http://piology.org/perl/id-or-mail.pl.html> or
<URL:http://www.enyo.de/fw/scripts/message-id-or-email.pl>."
  :group 'gnus-article-buttons
  :type '(choice (const "id-or-mail.pl")
		 (const "message-id-or-email.pl")
		 (regexp :tag "Other")))

(defcustom gnus-button-guess-mid-external-mid-regexp
  "-> m-id$"
  "The string returned by `gnus-button-guess-mid-external-name' should match
this regexp iff a message ID was found."
  :group 'gnus-article-buttons
  :type '(choice (const :tag "for id-or-mail.pl" "-> m-id$")
		 (const :tag "for message-id-or-email.pl" "^M")
		 (regexp :tag "Other")))

(defun gnus-button-guess-mid-external (mid-or-mail)
  "Function for `gnus-button-prefer-mid-or-mail'.  

The function should return a non-nil value, if the argument is supposed to be
a message ID.  You may need to set `gnus-button-guess-mid-external-name' and
`gnus-button-guess-mid-external-mid-regexp' to make this work."
  (string-match
   gnus-button-guess-mid-external-mid-regexp
   (with-temp-buffer
     (insert (concat "<" mid-or-mail ">"))
     (call-process-region (point-min) (point-max)
			  shell-file-name t (list (current-buffer) nil)
			  nil shell-command-switch
			  gnus-button-guess-mid-external-name)
     (buffer-string))))
--8<---------------cut here---------------end--------------->8---

`gnus-button-guess-mid-external' could be added to
`gnus-button-prefer-mid-or-mail':

--8<---------------cut here---------------start------------->8---
-		 (const mail)))
+		 (const mail)
+		 (function-item :tag "gnus-button-guess-mid-external"
+				gnus-button-guess-mid-external)
+		 (function :tag "Iff function evaluates to non-nil")))
--8<---------------cut here---------------end--------------->8---

> I'm not sure whether funcall should be protected with something like
> `save-window-excursion'.

Dunno.

Bye, Reiner.
-- 
       ,,,
      (o o)
---ooO-(_)-Ooo--- PGP key available via WWW   http://rsteib.home.pages.de/