fake becky

win

WanderlustをBecky!に見せかける。

(setq wl-from "姓 名 ")
(setq wl-message-id-use-wl-from t)
(setq wl-local-domain "EXAMPLE.JP")

(setq wl-message-id-function 'my-wl-draft-make-message-id-string)
(defun my-wl-draft-make-message-id-string ()
  "Return Message-ID field value."
  (concat "<" (format-time-string "%Y%m%d%H%M%S")
          "." (upcase (format "%04x" (nth 1 (current-time)))) "."
          (let (from user domain)
            (if (and wl-message-id-use-wl-from
                     (progn
                       (setq from (wl-address-header-extract-address wl-from))
                       (and (string-match "^\\(.*\\)@\\(.*\\)$" from)
                            (setq user   (match-string 1 from))
                            (setq domain (match-string 2 from)))))
                (format "%s@%s>" (upcase user) domain)
              (format "@%s>"
                      (or wl-message-id-domain
                          (if wl-local-domain
                              (concat (system-name) "." wl-local-domain)
                            (system-name))))))))


(setq wl-generate-mailer-string-function '(lambda () ""))
(setq wl-draft-additional-header-alist
      (list
       (cons 'X-Mailer "Becky! ver. 2.12.01 [ja]")
       ))