[debian-users:36160] mail2nikki.el does not work on wl 2.10.0

[Sugano Yoshihisa (E) <koshian@xxxxxxxxxxx>]

すがのです。
どこに投げたものか悩んだのですが……

wlパッケージが2.10.0になってから、hns2-toolsパッケージに含まれている
mail2nikki.elが動作しなくて悩んでいました。
どうやらWanderlustはこの版からwl-draftのインターフェイスが変わった、と
のことで、そのせいのようです。

ということで、とりあえずいじくってみました。

---------------------------------------------------------------------------
diff -r -u hns2-2.19.5.orig/contrib/hnf-mode/mail2nikki.el hns2-2.19.5/contrib/hnf-mode/mail2nikki.el
--- hns2-2.19.5.orig/contrib/hnf-mode/mail2nikki.el     2003-02-04 11:43:45.000000000 +0900
+++ hns2-2.19.5/contrib/hnf-mode/mail2nikki.el  2003-02-04 11:44:48.000000000 +0900
@@ -90,7 +90,12 @@
                                      (mapcar 'list mail2nikki-subject-list)
                                      nil t "hnf:")
                   (car mail2nikki-subject-list))))
-    (funcall mail-func mail2nikki-to-address mail2nikki-cc-address subject))
+      (setq header-alist
+           (append (list (cons 'From wl-from)
+                         (cons 'Subject subject)
+                         (cons 'To mail2nikki-to-address)
+                         (cons 'Cc mail2nikki-cc-address))))
+      (wl-draft header-alist))
   ; いろいろ挿入
   (insert (format "PASSWORD: %s\n" mail2nikki-password))
   (insert (format "DATE: %s\n\n" (format-time-string "%Y%m%d" (current-time))))
-----------------------------------------------------------------------------

Emacs-lispはほとんど触ったことが無い(というかプログラミングの経験がほ
とんどありません^^;;)ので妙なことしてるかもしれませんが、とりあえずこ
れでうちのsid環境では動いてます。


-- 
狐志庵
Sugano Yoshihisa(E) <mailto:koshian@xxxxxxxxxxx>
<http://www.misao.gr.jp/~koshian/>