[Mew-dist 09896] Re: request for mew-user-agent-compose

[Hideyuki SHIRAI ( 白井秀行 )]

From: sen_ml at example.com <sen_ml at example.com> さん曰く
Subject: [Mew-dist 09892] Re: request for mew-user-agent-compose
Message-ID: <19990730132533V.1001 at example.com>
Date: Fri, 30 Jul 1999 13:26:14 +0900


sen> mew-1.94b45 で mew-user-agent-compose を試しました。
sen>       (if (string-match mew-body: key)

## 流行ってますね :-)

これを変更した後、

(compose-mail
 "shirai at example.com"
 "試験"
 '(("in-reply-to" . "hoge at example.com") 
   ("X-UUU" . "XXXX")
   ("body" . "これは test メール")
   ("cc" . "foo at example.com"))) C-xC-e

は思った通りに動作しました。

sen> ＃ いま mew-mailto.el を変更しているところです。できあがったら送ります。

mew-browse.el は変更したので送ります。:-)
-------------- next part --------------
--- mew-browse.el.orig	Fri Jul 30 13:04:35 1999
+++ mew-browse.el	Fri Jul 30 13:21:48 1999
@@ -161,7 +161,7 @@
   (mew-browse-url-mailto url))
 
 (defun mew-browse-url-mailto (url)
-  (let (tmp to subject body other)
+  (let (tmp to subject other)
       (and (boundp 'url-working-buffer)
 	   url-working-buffer
 	   (get-buffer url-working-buffer)
@@ -191,19 +191,13 @@
 	      (setq to hvalue)))
 	   ((string-match "^subject$" hname)
 	    (setq subject hvalue))
-	   ((string-match "^body$" hname)
-	    (setq body hvalue))
 	   (t
 	    (setq other (cons (cons (capitalize hname) hvalue) other))))))
       (let ((mew-x-mailer mew-x-mailer))
 	(and (functionp 'url-view-url) (url-view-url t)
 	     (setq mew-x-mailer
 		   (concat mew-x-mailer " / " url-package-name "-" url-package-version)))
-	(mew-user-agent-compose to subject other nil mew-browse-url-mailto-switch-func))
-      (if body
-	  (save-excursion
-	    (goto-char (point-max))
-	    (insert body "\n")))))
+	(mew-user-agent-compose to subject other nil mew-browse-url-mailto-switch-func))))
 
 (defun mew-browse-url-mailto-decamp (str)
   (save-match-data
-------------- next part --------------

-- 
白井秀行 (mailto:shirai at example.com)