某所で、draft-baer-listspec-02.txt なんていうのがあると聞いたの
で中身をみたら、
List-Help: <mailto:list at example.com?subject=help> (List Instructions)
List-Help: <mailto:list-manager at example.com?body=info>
という感じだったので、使い道があるかはわかりませんが ^^;;;、
mew-win32.el の browse-url-or-mew () で対応してみました。
-------------- next part --------------
--- mew-win32.el.orig Tue Jun 23 11:08:08 1998
+++ mew-win32.el Thu Jun 25 11:24:36 1998
@@ -179,15 +179,28 @@
)))
(defun browse-url-mew-start (url)
- (message "Browse %s." url)
- (cond
- ((string-match "^mailto:" url)
- (mew-summary-send (substring url (match-end 0) nil)))
- (t
- (apply (function start-process)
- (format "*mew %s*" mew-ext-prog-url)
- mew-buffer-tmp mew-ext-prog-url
- (append mew-ext-prog-url-args (list url))))))
+ (let (to subject body)
+ (message "Browse %s." url)
+ (cond
+ ((string-match "^mailto:" url)
+ (setq to (substring url (match-end 0) nil))
+ (cond
+ ((string-match "^\\(.*\\)\\?subject=\\(.*\\)$" to)
+ (setq subject (substring to (match-beginning 2) (match-end 2)))
+ (setq to (substring to (match-beginning 1) (match-end 1))))
+ ((string-match "^\\(.*\\)\\?body=\\(.*\\)$" to)
+ (setq body (substring to (match-beginning 2) (match-end 2)))
+ (setq to (substring to (match-beginning 1) (match-end 1)))))
+ (mew-summary-send to nil subject)
+ (if body
+ (save-excursion
+ (goto-char (point-max))
+ (insert body))))
+ (t
+ (apply (function start-process)
+ (format "*mew %s*" mew-ext-prog-url)
+ mew-buffer-tmp mew-ext-prog-url
+ (append mew-ext-prog-url-args (list url)))))))
(setq browse-url-browser-function 'browse-url-or-mew)
(add-hook 'mew-init-hook
-------------- next part --------------
# Meadow(というか Emacs20.x)だけで有効です。
## 実は私もMeadow推進派だったりして ^^;;;
--
白井秀行 (Hideyuki SHIRAI)