mailto:address?subject=subject URL support

[Per Abrahamsen <abraham@dina.kvl.dk>]

Here is a patch that allows Gnus to handle mailto URLs of the form:

	<URL:mailto:list-request@your.smartlisthost?Subject=subscribe>

It seems to be an undocumented Netscape extension, but I might be
wrong about that.  Maybe wmperry knows.

Mon Oct 21 14:50:11 1996  Per Abrahamsen  <abraham@dina.kvl.dk>

	* gnus-art.el (gnus-button-reply): Handle Netscape `?subject='
	mailto urls.

cd ~/emacs/rgnus/lisp/
diff -c gnus-art.el~ gnus-art.el 
*** gnus-art.el~	Tue Oct  8 12:47:05 1996
--- gnus-art.el	Mon Oct 21 14:48:31 1996
***************
*** 1839,1845 ****
  
  (defun gnus-button-reply (address)
    ;; Reply to ADDRESS.
!   (message-reply address))
  
  (defun gnus-button-url (address)
    "Browse ADDRESS."
--- 1839,1850 ----
  
  (defun gnus-button-reply (address)
    ;; Reply to ADDRESS.
!   (let ((case-fold-search t))
!     (if (string-match "\\`\\(.*\\)\\?subject=\\(.*\\)\\'" address)
! 	(let ((to (match-string 1 address))
! 	      (subject (match-string 2 address)))
! 	  (message-mail to subject))
!       (message-reply address))))
  
  (defun gnus-button-url (address)
    "Browse ADDRESS."

Compilation exited abnormally with code 1 at Mon Oct 21 14:48:51