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

[Raymond Scholz <ray-2002@zonix.de>]

[-- Attachment #1: Type: text/plain, Size: 299 bytes --]

* Reiner Steib <4uce.02.r.steib@gmx.net> wrote:

> Would you like to work on this? We could include another choice option
> in `gnus-button-prefer-mid-or-mail' (and use it in
> `gnus-button-handle-mid-or-mail').

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


[-- Warning: decoded text below may be mangled, UTF-8 assumed --]
[-- Attachment #2: gnus-art.patch --]
[-- Type: text/x-patch, Size: 2165 bytes --]

Index: gnus-art.el
===================================================================
RCS file: /usr/local/cvsroot/gnus/lisp/gnus-art.el,v
retrieving revision 6.248
diff -u -r6.248 gnus-art.el
--- gnus-art.el	2002/09/27 08:09:05	6.248
+++ gnus-art.el	2002/10/16 18:14:10
@@ -5325,19 +5325,23 @@
 
 (defcustom gnus-button-prefer-mid-or-mail 'guess
   "What to do when the button on a string as \"foo123@bar.com\" is pushed.
-Strings like this can be either a message ID or a mail address.  If the
-variable is set to the symbol `ask', query the user what do do.  If it is the
-symbol `guess', Gnus will do a guess and query the user what do do if it is
-ambiguous. If it is one of the sybols `mid' or `mail', Gnus will always assume
-that the string is a message ID or a mail address, respectivly.  See the
-variable `gnus-button-guessed-mid-regexp' for details concerning the
-guessing."
+Strings like this can be either a message ID or a mail address.  If
+the variable is set to the symbol `ask', query the user what do do.
+If it is the symbol `guess', Gnus will do a guess and query the user
+what do do if it is ambiguous.  See the variable
+`gnus-button-guessed-mid-regexp' for details concerning the guessing.
+If it is one of the sybols `mid' or `mail', Gnus will always assume
+that the string is a message ID or a mail address, respectivly.  If it
+is a function, Gnus will call this function with the string in
+question as the only argument.  The function should return non-nil
+value, if the argument is supposed to be a message ID."
   ;; FIXME: doc-string could/should be improved.
   :group 'gnus-article-buttons
   :type '(choice (const ask)
 		 (const guess)
 		 (const mid)
-		 (const mail)))
+		 (const mail)
+		 (function :tag "Iff function evaluates to non-nil")))
 
 (defcustom gnus-button-guessed-mid-regexp
   (concat
@@ -5361,6 +5365,10 @@
     ;; otherwise 'ask the user.
     (if (eq pref 'guess)
 	(if (string-match gnus-button-guessed-mid-regexp mid-or-mail)
+	    (setq pref 'mid)
+	  (setq pref 'ask)))
+    (if (functionp pref)
+	(if (funcall pref mid-or-mail)
 	    (setq pref 'mid)
 	  (setq pref 'ask)))
     (if (eq pref 'ask)

[-- Attachment #3: Type: text/plain, Size: 553 bytes --]


And something like

(defun rs-is-mid (mid-or-mail)
  (string-match
   "-> m-id$"
   (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
			  "/home/rscholz/bin/id-or-mail.pl")
     (buffer-string))))

(setq gnus-button-prefer-mid-or-mail 'is-mid)


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

Cheers, Ray
-- 
http://www.zonix.de/ - (c) 2000 by Yamtaijika Corp.