Update.

[elisp/wanderlust.git] / samples / en / dot.wl

diff --git a/samples/en/dot.wl b/samples/en/dot.wl
index 350cf3b..cedef09 100644 (file)
--- a/samples/en/dot.wl
+++ b/samples/en/dot.wl
@@ -31,6 +31,10 @@
 ;; Header From:
 ;(setq wl-from "Your Name <e-mail@example.com>")
 
+;; If (system-name) does not return FQDN,
+;; set following as a local domain name without hostname.
+;(setq wl-local-domain "example.com")
+
 ;; User's mail addresses.
 (setq wl-user-mail-address-list
       (list (wl-address-header-extract-address wl-from)
@@ -46,19 +50,6 @@
        ;; "ml@example.com" ...
        ))
 
-;; If (system-name) does not return FQDN,
-;; set following as a local domain name without hostname.
-;; ((system-name) "." wl-local-domain is used as domain part of Message-ID
-;; and an argument of HELO in SMTP.
-;(setq wl-local-domain "example.com")
-
-;; Specific domain part for message-id.
-;(setq wl-message-id-domain "hostname.example.com")
-
-;; Use wl-from for generating message-id.
-;; wl-message-id-use-wl-from precedes wl-local-domain and wl-message-id-domain.
-;(setq wl-message-id-use-wl-from t)
-
 ;;; [[ Server Setting ]]
 
 ;; Default IMAP4 server
@@ -230,6 +221,10 @@
 ;      (setq buffers (cdr buffers))))))
 ;(run-with-idle-timer 20 t 'my-wl-auto-save-draft-buffers)
 
+;; When you encrypt message by PGP, include your public key.
+;; (to make the message visible from yourself)
+;(setq pgg-encrypt-for-me t)
+
 
 ;;; [[ Template ]]
 
@@ -285,25 +280,32 @@
 ;      ("Newsgroups" . (nil nil ("Newsgroups")))
 ;      ("Reply-To" . (("Reply-To") nil nil))
 ;      ("Mail-Reply-To" . (("Mail-Reply-To") nil nil))
+;      (wl-draft-self-reply-p . (("To") ("Cc") nil))
 ;      ("From" . (("From") nil nil))))
 
-;; "C-u a" (with-argument) reply to all.
-;(setq wl-draft-reply-with-argument-list
-;      '(("Followup-To" . (("From") nil ("Followup-To")))
-;      ("Newsgroups" . (("From") nil ("Newsgroups")))
-;      ("Mail-Followup-To" . (("Mail-Followup-To") nil ("Newsgroups")))
-;      ("From" . (("From") ("To" "Cc") ("Newsgroups")))))
-
 ;; old defaults < 2.11.0
-;(setq wl-draft-reply-with-argument-list
-;      '(("Reply-To" . (("Reply-To") nil nil))
-;      ("Mail-Reply-To" . (("Mail-Reply-To") nil nil))
-;      ("From" . (("From") nil nil))))
 ;(setq wl-draft-reply-without-argument-list
-;      '(("Followup-To" . (nil nil ("Followup-To")))
+;      '(((wl-draft-self-reply-p
+;        "Followup-To") . (("To") ("Cc") ("Followup-To")))
+;      ((wl-draft-self-reply-p
+;        "Newsgroups") . (("To") ("Cc") ("Newsgroups")))
+;      ((wl-draft-self-reply-p
+;        "From") . (("To") ("Cc") nil))
+;      ("Followup-To" . (nil nil ("Followup-To")))
 ;      ("Mail-Followup-To" . (("Mail-Followup-To") nil ("Newsgroups")))
 ;      ("Reply-To" . (("Reply-To") ("To" "Cc" "From") ("Newsgroups")))
 ;      ("From" . (("From") ("To" "Cc") ("Newsgroups")))))
+;(setq wl-draft-reply-with-argument-list
+;      '(((wl-draft-self-reply-p
+;        "Followup-To") . (("To") ("Cc") ("Followup-To")))
+;      ((wl-draft-self-reply-p
+;        "Newsgroups") . (("To") ("Cc") ("Newsgroups")))
+;      ((wl-draft-self-reply-p
+;        "From") . (("To") ("Cc") nil))
+;      ("Reply-To" . (("Reply-To") nil nil))
+;      ("Mail-Reply-To" . (("Mail-Reply-To") nil nil))
+;      ("From" . (("From") nil nil))))
+
 
 ;;; [[ Message Display Settings ]]