Sync up with main trunk and following.

[elisp/wanderlust.git] / utils / im-wl.el

diff --git a/utils/im-wl.el b/utils/im-wl.el
index 496a818..92a8f57 100644 (file)
--- a/utils/im-wl.el
+++ b/utils/im-wl.el
@@ -27,7 +27,7 @@
 
 ;;  General settings:
 ;;  (autoload 'wl-draft-send-with-imput-async "im-wl")
-;;  (setq wl-draft-send-func 'wl-draft-send-with-imput-async)
+;;  (setq wl-draft-send-function 'wl-draft-send-with-imput-async)
 ;;
 ;;  for Nifty4U+ users:
 ;;  (add-hook 'wl-mail-setup-hook '(lambda () (require 'im-wl)))
@@ -36,7 +36,7 @@
 ;;           ;; to avoid header-encoding.
 ;;           ;; [cf.  slrn-ja-0.9.4.6.jp4/doc/README.macros.euc]
 ;;           ;(eword-field-encoding-method-alist . '((t .  iso-2022-jp-2)))
-;;           (wl-draft-send-func . 'wl-draft-send-with-imput-async)
+;;           (wl-draft-send-function . 'wl-draft-send-with-imput-async)
 ;;           (im-wl-dispatcher . '("~/nifty4u-plus/inews-nifty4u" "-h"))
 ;;           (im-wl-dispatcher-error-msg
 ;;            . (format "^%s :" (expand-file-name (car im-wl-dispatcher)))))))
@@ -97,7 +97,7 @@ This is most commonly `imput(impost)' or `inews-nifty4u'.")
          (when (and wl-insert-message-id
                     (not (re-search-forward "^Message-ID[ \t]*:" nil t)))
            (insert (concat "Message-ID: "
-                           (wl-draft-make-message-id-string) "\n")))
+                           (funcall wl-message-id-function) "\n")))
          ;; Insert date field.
          (goto-char (point-min))
          (or (re-search-forward "^Date[ \t]*:" nil t)