X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=utils%2Fwl-mailto.el;h=c6531022e06af0d1cdf2bad378761485ee961ace;hb=98f38e5383840a86e4ebca5803d505110d0997f8;hp=09fb0c6d6a92011466960248107840cbbeb37c90;hpb=1e366a559be4aec4ad4d3cf3e954b8e62a20d2f3;p=elisp%2Fwanderlust.git

diff --git a/utils/wl-mailto.el b/utils/wl-mailto.el
index 09fb0c6..c653102 100644
--- a/utils/wl-mailto.el
+++ b/utils/wl-mailto.el
@@ -1,4 +1,4 @@
-;;; wl-mailto.el --- some mailto support for wanderlust
+;;; wl-mailto.el -- some mailto support for wanderlust
 
 ;;; Copyright (C) 1999 Sen Nagata
 
@@ -14,13 +14,13 @@
 ;; required elisp packages:
 ;;
 ;;   -wl (>= 0.9.6?)
-;;   
+;;
 ;;   -rfc2368.el
 ;;   -thingatpt.el or browse-url.el
 ;;
 ;; installation:
 ;;
-;;   -put this file (and rfc2368.el) in an appropriate directory (so emacs 
+;;   -put this file (and rfc2368.el) in an appropriate directory (so Emacs
 ;;    can find it)
 ;;
 ;;   <necessary>
@@ -63,7 +63,7 @@
 ;; 1999-06-11:
 ;;
 ;;   fixed a typo
-;; 
+;;
 ;; 0.4
 ;;
 ;; 1999-06-01:
@@ -80,8 +80,10 @@
 
 ;; how should we handle the dependecy on wl?
 ;; will this work?
-(eval-when-compile 
-  (require 'wl))
+(eval-when-compile
+  (require 'wl)
+  (defun wl-mailto-url-at-point ()))
+
 
 ;; use rfc2368 support -- should be usable for things other than wl too
 (require 'rfc2368)
@@ -92,18 +94,18 @@
     ;; for xemacs versions less than 21, use browse-url.el
     (progn
       (require 'browse-url)
-      (fset 'wl-mailto-url-at-point 
+      (fset 'wl-mailto-url-at-point
 	    'browse-url-url-at-point))
   ;; for everything else, use thingatpt.el
   (progn
     (require 'thingatpt)
     (fset 'wl-mailto-url-at-point
-	  (lambda () 
+	  (lambda ()
 	    (thing-at-point 'url)))))
 
 (defun wl-mailto-compose-message-from-mailto-url (url &optional dummy)
   "Compose a message from URL (RFC 2368).
-The optional second argument, DUMMY, exists to match the interface 
+The optional second argument, DUMMY, exists to match the interface
 provided by `browse-url-mail' (w3) -- DUMMY does not do anything."
   (interactive "sURL: ")
   (if (string-match rfc2368-mailto-regexp url)