Fixed comment-out style.
(setq root-dir (concat root-dir "/" (replace-as-filename id)))
(setq full-file (concat root-dir "/FULL"))
(if (null target)
- (error "%s is not supported. Sorry." target))
+ (error "%s is not supported" target))
(if (or (file-exists-p full-file)
(not (y-or-n-p "Merge partials?")))
(mime-article/decode-message/partial beg end cal)
Valid value is nit, t, 1 or larget integer.
If this value nil, minimum alias postfix is made depends on uniqness
-with other candidates. In this implementation, it's same to 1. If t,
-always append all dn data. If number, always append spcified level of
+with other candidates. In this implementation, it's same to 1. If t,
+always append all dn data. If number, always append spcified level of
data but maybe appended more uniqness. If invalid value, treat as
nil.
2 => Goto/Shun-ichi_GOTO/Mew/Emacs ... appended more
3 => Goto/Shun-ichi_GOTO/Mew/Emacs
4 => Goto/Shun-ichi_GOTO/Mew/Emacs/Lisper
- (so on...)
-")
+ (so on...)")
(defconst wl-ldap-alias-sep "/")
(progn
(delete-region start end)
(insert (cdr alias))
- ; (wl-highlight-message (point-min)(point-max) t)
+;;; (wl-highlight-message (point-min)(point-max) t)
)))
(wl-complete-window-delete))
((null completion)
(defvar wl-address-init-func 'wl-local-address-init)
(defun wl-address-init ()
+ "Call `wl-address-init-func'."
(funcall wl-address-init-func))
(defun wl-local-address-init ()
+ "Reload `wl-address-file'.
+Refresh `wl-address-list', `wl-address-completion-list', and
+`wl-address-petname-hash'."
(message "Updating addresses...")
(setq wl-address-list
(wl-address-make-address-list wl-address-file))
wl-from))))))
(defsubst wl-address-header-extract-address (str)
- "Extracts a real e-mail address from STR and returns it.
+ "Extracts a real e-mail address from STR and return it.
e.g. \"Mine Sakurai <m-sakura@ccs.mt.nec.co.jp>\"
-> \"m-sakura@ccs.mt.nec.co.jp\".
e.g. \"m-sakura@ccs.mt.nec.co.jp (Mine Sakurai)\"
(t str)))
(defsubst wl-address-header-extract-realname (str)
- "Extracts a real name from STR and returns it.
+ "Extracts a real name from STR and return it.
e.g. \"Mr. bar <hoge@foo.com>\"
-> \"Mr. bar\"."
(cond ((string-match "\\(.*[^ \t]\\)[ \t]*<[^>]*>" str)
address-string))
(defun wl-address-petname-delete (the-email)
- "Delete petname in wl-address-file."
+ "Delete petname in `wl-address-file'."
(let* ( (tmp-buf (get-buffer-create " *wl-petname-tmp*"))
(output-coding-system
(mime-charset-to-coding-system wl-mime-charset)))
default-petname
default-realname
&optional change-petname)
- "Add petname to wl-address-file, if not registerd.
+ "Add petname to `wl-address-file', if not registerd.
If already registerd, change it."
(let (the-realname the-petname)
;; setup output "realname"
(setq the-realname
(read-from-minibuffer (format "Real Name: ") default-realname))
-;; (if (string= the-realname "")
-;; (setq the-realname default-petname))
+;;; (if (string= the-realname "")
+;;; (setq the-realname default-petname))
;; writing to ~/.address
(let ( (tmp-buf (get-buffer-create " *wl-petname-tmp*"))
ext
'experimental-dragdrop-drop-functions
'((wl-dnd-drop-func t t (buffer-substring beg end))))))
-; (set-extent-property ext 'mouse-face 'highlight)))
+;;; (set-extent-property ext 'mouse-face 'highlight)
(defun wl-dnd-set-drag-starter (beg end)
(let (ext kmap)
(setq ext (make-extent beg end))
-; (set-extent-property ext 'mouse-face 'isearch)
+;;; (set-extent-property ext 'mouse-face 'isearch)
(setq kmap (make-keymap))
(define-key kmap [button1] 'wl-dnd-start-drag)
(set-extent-property ext 'keymap kmap)))
(,@ body))))
(defun wl-draft-insert-date-field ()
+ "Insert Date field."
(insert "Date: " (wl-make-date-string) "\n"))
(defun wl-draft-insert-from-field ()
+ "Insert From field."
;; Put the "From:" field in unless for some odd reason
;; they put one in themselves.
(let* ((login (or user-mail-address (user-login-name)))
))
(defun wl-draft-insert-x-face-field-here ()
- "insert x-face field at point."
+ "Insert x-face field at point."
(let ((x-face-string (elmo-get-file-string wl-x-face-file)))
(if (string-match "^[ \t]*" x-face-string)
(setq x-face-string (substring x-face-string (match-end 0))))
(mail-position-on-field "To"))
(defun wl-draft-reply (buf no-arg summary-buf)
-; (save-excursion
+ ""
+;;;(save-excursion
(let (r-list
(eword-lexical-analyzer '(eword-analyze-quoted-string
eword-analyze-domain-literal
(wl-highlight-body-region beg (point-max)))))
(defun wl-draft-confirm ()
+ "Confirm send message."
(interactive)
(y-or-n-p (format "Send current draft as %s? "
(if (wl-message-mail-p)
"News"))))
(defun wl-message-news-p ()
+ "If exist valid Newsgroups field, return non-nil."
(std11-field-body "Newsgroups"))
(defun wl-message-field-exists-p (field)
+ "If FIELD exist and FIELD value is not empty, return non-nil."
(let ((value (std11-field-body field)))
(and value
(not (string= value "")))))
(defun wl-message-mail-p ()
+ "If exist To, Cc or Bcc field, return non-nil."
(or (wl-message-field-exists-p "To")
(wl-message-field-exists-p "Cc")
(wl-message-field-exists-p "Bcc")
- ;;(wl-message-field-exists-p "Fcc") ; This may be needed..
+;;; This may be needed..
+;;; (wl-message-field-exists-p "Fcc")
))
(defun wl-draft-open-file (&optional file)
- (interactive) ; "*fFile to edit: ")
+ "Open FILE for edit."
+ (interactive)
+;;;(interactive "*fFile to edit: ")
(wl-draft-edit-string (elmo-get-file-string
(or file
(read-file-name "File to edit: "
(goto-char (1+ delimline))
(if (eval mail-mailer-swallows-blank-line)
(newline))
- ;;(run-hooks 'wl-mail-send-pre-hook)
+;;; (run-hooks 'wl-mail-send-pre-hook)
(if mail-interactive
(save-excursion
(set-buffer errbuf)
(wl-draft-send-mail-with-smtp))
(defun wl-draft-insert-required-fields (&optional force-msgid)
+ "Insert Message-ID, Date, and From field.
+If FORCE-MSGID, ignore 'wl-insert-message-id'."
;; Insert Message-Id field...
(goto-char (point-min))
(when (and (or force-msgid
(wl-draft-insert-from-field)))
(defun wl-draft-normal-send-func (editing-buffer kill-when-done)
- "Send the message in the current buffer. "
+ "Send the message in the current buffer."
(save-restriction
(std11-narrow-to-header mail-header-separator)
(wl-draft-insert-required-fields)
(wl-draft-delete editing-buffer)))
(defun wl-draft-dispatch-message (&optional mes-string)
- "Send the message in the current buffer. Not modified the header fields."
+ "Send the message in the current buffer. Not modified the header fields."
(let (delimline)
(if (and wl-draft-verbose-send mes-string)
(message mes-string))
(message (concat wl-draft-verbose-msg "done")))
(if mes-string
(message (concat mes-string
- (if sent-via "done." "failed.")))))))))
+ (if sent-via "done" "failed")))))))))
(not wl-sent-message-modified)) ;; return value
(defun wl-draft-raw-send (&optional kill-when-done force-pre-hook mes-string)
(interactive)
(save-excursion
(let (wl-interactive-send
-; wl-draft-verbose-send
+;;; wl-draft-verbose-send
(wl-mail-send-pre-hook (and force-pre-hook wl-mail-send-pre-hook))
-; wl-news-send-pre-hook
+;;; wl-news-send-pre-hook
mail-send-hook
mail-send-actions)
(wl-draft-send kill-when-done mes-string))))
(setq failure (funcall
wl-draft-queue-flush-send-func
(format "Sending (%d/%d)..." i len)))
-;; (wl-draft-raw-send nil nil
-;; (format "Sending (%d/%d)..." i len))
+;;; (wl-draft-raw-send nil nil
+;;; (format "Sending (%d/%d)..." i len))
(error
(elmo-display-error err t)
(setq failure t))
((eq wl-summary-expire-reserve-marks 'none)
t)
(t
- (error "invalid marks: %s" wl-summary-expire-reserve-marks))))
+ (error "Invalid marks: %s" wl-summary-expire-reserve-marks))))
(defmacro wl-expire-make-sortable-date (date)
(` (timezone-make-sortable-date
nil nil t
copy-reserve-message
preserve-number))
- (error "expire: move msgs to %s failed" dst-folder))
+ (error "Expire: move msgs to %s failed" dst-folder))
(wl-expire-append-log folder refile-list dst-folder
(if copy-reserve-message 'copy 'move))
(setq copy-len (length refile-list))
(cons refile-list copy-len))))
(defun wl-expire-archive-get-folder (src-folder &optional fmt)
- "Get archive folder name from src-folder."
+ "Get archive folder name from SRC-FOLDER."
(let* ((spec (elmo-folder-get-spec src-folder))
(fmt (or fmt wl-expire-archive-folder-name-fmt))
(archive-spec (char-to-string
))
(defun wl-expire-hide (folder hide-list msgdb)
+ ""
(let ((mess (format "Hiding %s msgs..." (length hide-list))))
(message mess)
(elmo-msgdb-delete-msgs folder hide-list msgdb t)
(cons hide-list (length hide-list))))
(defsubst wl-expire-folder-p (folder)
+ "Return non-nil, when FOLDER matched `wl-expire-alist'."
(wl-get-assoc-list-value wl-expire-alist folder))
(defun wl-summary-expire (&optional folder-name notsummary nolist)
+ ""
(interactive)
(let ((folder (or folder-name wl-summary-buffer-folder-name))
(alist wl-expire-alist)
(defun wl-fldmgr-exit ()
(when (and wl-fldmgr-modified
(or (not wl-interactive-save-folders)
- (y-or-n-p "Folder view was modified. Save current folders? ")))
+ (y-or-n-p "Folder view was modified. Save current folders? ")))
(wl-fldmgr-save-folders)))
;;; Macro and misc Function
wl-folder-group-alist)))
(defun wl-fldmgr-add-entity-hashtb (entities)
- "update `wl-folder-entity-hashtb', `wl-folder-newsgroups-hashtb'.
-return value is diffs '(new unread all)."
+ "Update `wl-folder-entity-hashtb', `wl-folder-newsgroups-hashtb'.
+Return value is diffs '(new unread all)."
(let* ((new-diff 0)
(unread-diff 0)
(all-diff 0)
(list new-diff unread-diff all-diff)))
(defun wl-fldmgr-delete-entity-hashtb (entities &optional clear)
- "update `wl-folder-entity-hashtb'.
+ "Update `wl-folder-entity-hashtb'.
return value is diffs '(-new -unread -all)."
(let* ((new-diff 0)
(unread-diff 0)
(save-excursion
(beginning-of-line)
(when prev
-;; (wl-folder-next-entity-skip-invalid t)
-;; (and (setq previous-entity
-;; (wl-fldmgr-get-previous-entity wl-folder-entity
-;; (wl-fldmgr-get-entity-id)))
-;; ;; change entity to id
-;; (setq previous-entity
-;; (cons
-;; (and (car previous-entity)
-;; (wl-fldmgr-get-entity-id (car previous-entity)))
-;; (and (cdr previous-entity)
-;; (wl-fldmgr-get-entity-id (cdr previous-entity))))))
+;;; (wl-folder-next-entity-skip-invalid t)
+;;; (and (setq previous-entity
+;;; (wl-fldmgr-get-previous-entity wl-folder-entity
+;;; (wl-fldmgr-get-entity-id)))
+;;; ;; change entity to id
+;;; (setq previous-entity
+;;; (cons
+;;; (and (car previous-entity)
+;;; (wl-fldmgr-get-entity-id (car previous-entity)))
+;;; (and (cdr previous-entity)
+;;; (wl-fldmgr-get-entity-id (cdr previous-entity))))))
(wl-folder-prev-entity-skip-invalid))
(if (and prev
(looking-at wl-folder-group-regexp)
(string= (wl-match-buffer 2) "-"))
(setq group-target nil)
(if (and prev (bobp))
- (error "out of desktop group")))
+ (error "Out of desktop group")))
(setq folder-path (wl-fldmgr-get-path wl-folder-entity
(wl-folder-get-entity-from-buffer)
- ;;(wl-fldmgr-get-entity-id)
+;;; (wl-fldmgr-get-entity-id)
group-target))
(let ((fp folder-path))
(while fp
(save-excursion
(beginning-of-line)
(if (looking-at wl-folder-group-regexp)
- (error "can't delete group folder"))
+ (error "Can't delete group folder"))
(let* ((inhibit-read-only t)
(tmp (wl-fldmgr-get-path-from-buffer))
(entity (elmo-string (nth 4 tmp)))
(setcar group-entity group)
(setcar (wl-string-assoc old-group wl-folder-group-alist)
group)
- ;;(setcdr (assq id wl-folder-entity-id-name-alist) group)
+;;; (setcdr (assq id wl-folder-entity-id-name-alist) group)
(wl-folder-set-id-name id group)
(wl-fldmgr-delete-line)
(wl-folder-insert-entity
(old-folder (nth 4 tmp))
new-folder)
(if (eq (cdr (nth 2 tmp)) 'access)
- (error "can't rename access folder"))
+ (error "Can't rename access folder"))
(setq new-folder
(wl-fldmgr-read-string
(wl-summary-read-folder old-folder "to rename" t t old-folder)))
(if (or (wl-folder-entity-exists-p new-folder)
(file-exists-p (elmo-msgdb-expand-path new-folder)))
- (error "already exists folder: %s" new-folder))
+ (error "Already exists folder: %s" new-folder))
(elmo-rename-folder old-folder new-folder)
(wl-folder-set-entity-info
new-folder
(if (eq (cdr (nth 2 tmp)) 'access)
(message "Can't change access group")
(setq entity (nth 4 tmp))
- (unless entity (error "no folder"))
+ (unless entity (error "No folder"))
(wl-fldmgr-add (concat "/"
(elmo-read-search-condition
wl-fldmgr-make-filter-default)
(point))))
(delete-region beg end)
(wl-folder-insert-entity indent entity)))
- ;;(wl-fldmgr-reconst-entity-hashtb t t)
+;;; (wl-fldmgr-reconst-entity-hashtb t t)
(message "Sorting...done")
(set-buffer-modified-p nil)))))
(wl-fldmgr-delete-line)
(when (wl-fldmgr-add folder)
(wl-folder-maybe-load-folder-list folder)
-;; (wl-folder-search-group-entity-by-name (car folder)
-;; wl-folder-entity))
+;;; (wl-folder-search-group-entity-by-name (car folder)
+;;; wl-folder-entity)
(setq execed t)))))
((looking-at (format "^[ ]*%s\\(.*\\)" wl-folder-unsubscribe-mark))
(if (and type (> type 0))
(old-petname (or (cdr pentry) ""))
(change)
petname)
- (unless name (error "no folder"))
+ (unless name (error "No folder"))
(if (and is-group
(not (eq (nth 1 (wl-folder-search-group-entity-by-name
name wl-folder-entity))
(goto-char (point-min))))
(defun wl-folder-next-entity-skip-invalid (&optional hereto)
- "move to next entity. skip unsubscribed or removed entity."
+ "Move to next entity. skip unsubscribed or removed entity."
(interactive)
(beginning-of-line)
(if (not hereto)
(setq entity (wl-pop entities))
(cond
((consp entity)
-;; (if (and (string= name (car entity))
-;; (eq id (wl-folder-get-entity-id (car entity))))
-;; (setq found t))
+;;; (if (and (string= name (car entity))
+;;; (eq id (wl-folder-get-entity-id (car entity))))
+;;; (setq found t))
(and entities
(wl-push entities entity-stack))
(setq entities (nth 2 entity)))
wl-force-fetch-folders)))
(defun wl-folder-jump-to-current-entity (&optional arg)
- "Enter the current folder. If optional arg exists, update folder list. "
+ "Enter the current folder. If optional ARG exists, update folder list."
(interactive "P")
(beginning-of-line)
(let (entity beg end indent opened fname err fld-name)
(message "Syncing %s is done!" entity-name)))))
(defun wl-folder-mark-as-read-all-entity (entity)
- "Mark as read all messages in the ENTITY"
+ "Mark as read all messages in the ENTITY."
(cond
((consp entity)
(let ((flist (nth 2 entity)))
(select-window (get-buffer-window cur-buf)))))))))
(defun wl-folder-prev-unsync ()
- "move cursor to the previous unsync folder."
+ "Move cursor to the previous unsync folder."
(interactive)
(let (start-point)
(setq start-point (point))
(message "No more unsync folder"))))
(defun wl-folder-next-unsync (&optional plugged)
- "move cursor to the next unsync."
+ "Move cursor to the next unsync."
(interactive)
(let (start-point entity)
(setq start-point (point))
(message "No more unsync folder"))))
(defun wl-folder-prev-unread (&optional group)
- "move cursor to the previous unread folder."
+ "Move cursor to the previous unread folder."
(interactive "P")
(let (start-point)
(setq start-point (point))
nil)))
(defun wl-folder-next-unread (&optional group)
- "move cursor to the next unread folder."
+ "Move cursor to the next unread folder."
(interactive "P")
(let (start-point)
(setq start-point (point))
(defun wl-folder (&optional arg)
(interactive "P")
(let (initialize)
-; (delete-other-windows)
+;;; (delete-other-windows)
(if (get-buffer wl-folder-buffer-name)
(switch-to-buffer wl-folder-buffer-name)
(switch-to-buffer (get-buffer-create wl-folder-buffer-name))
(if (setq buf (get-buffer wl-folder-buffer-name))
(wl-folder-entity-hashtb-set
wl-folder-entity-hashtb name value buf))
-;; (elmo-folder-set-info-hashtb (elmo-string name)
-;; nil
-;; (nth 2 value)
-;; (nth 0 value)
-;; (nth 1 value))
+;;; (elmo-folder-set-info-hashtb (elmo-string name)
+;;; nil
+;;; (nth 2 value)
+;;; (nth 0 value)
+;;; (nth 1 value))
(setq wl-folder-info-alist-modified t))))
(defun wl-folder-calc-finfo (entity)
(as-opened (cdr (assoc (car entity) wl-folder-group-alist)))
beg
)
-; (insert indent "[" (if as-opened "-" "+") "]" (car entity) "\n")
-; (save-excursion (forward-line -1)
-; (wl-highlight-folder-current-line))
+;;; (insert indent "[" (if as-opened "-" "+") "]" (car entity) "\n")
+;;; (save-excursion (forward-line -1)
+;;; (wl-highlight-folder-current-line))
(setq beg (point))
(if (and as-opened
(not onlygroup))
(let (update-flist flist-unsub new-flist removed group-name-end)
-; (when (and (eq (cadr entity) 'access)
-; newest)
-; (message "fetching folder entries...")
-; (when (setq new-flist
-; (elmo-list-folders
-; (elmo-string (car entity))
-; (wl-string-member
-; (car entity)
-; wl-folder-hierarchy-access-folders)
-; ))
-; (setq update-flist
-; (wl-folder-update-access-group entity new-flist))
-; (setq flist (nth 1 update-flist))
-; (when (car update-flist) ;; diff
-; (setq flist-unsub (nth 2 update-flist))
-; (setq removed (nth 3 update-flist))
-; (elmo-msgdb-flist-save
-; (car entity)
-; (list
-; (wl-folder-make-save-access-list flist)
-; (wl-folder-make-save-access-list flist-unsub)))
-; ;;
-; ;; reconstruct wl-folder-entity-id-name-hashtb and
-; ;; wl-folder-entity-hashtb
-; ;;
-; (wl-folder-entity-assign-id
-; entity
-; wl-folder-entity-id-name-hashtb
-; t)
-; (setq wl-folder-entity-hashtb
-; (wl-folder-create-entity-hashtb
-; entity
-; wl-folder-entity-hashtb
-; t))
-; (setq wl-folder-newsgroups-hashtb
-; (or
-; (wl-folder-create-newsgroups-hashtb
-; entity nil)
-; wl-folder-newsgroups-hashtb))))
-; (message "fetching folder entries...done"))
+;;; (when (and (eq (cadr entity) 'access)
+;;; newest)
+;;; (message "fetching folder entries...")
+;;; (when (setq new-flist
+;;; (elmo-list-folders
+;;; (elmo-string (car entity))
+;;; (wl-string-member
+;;; (car entity)
+;;; wl-folder-hierarchy-access-folders)
+;;; ))
+;;; (setq update-flist
+;;; (wl-folder-update-access-group entity new-flist))
+;;; (setq flist (nth 1 update-flist))
+;;; (when (car update-flist) ;; diff
+;;; (setq flist-unsub (nth 2 update-flist))
+;;; (setq removed (nth 3 update-flist))
+;;; (elmo-msgdb-flist-save
+;;; (car entity)
+;;; (list
+;;; (wl-folder-make-save-access-list flist)
+;;; (wl-folder-make-save-access-list flist-unsub)))
+;;; ;;
+;;; ;; reconstruct wl-folder-entity-id-name-hashtb and
+;;; ;; wl-folder-entity-hashtb
+;;; ;;
+;;; (wl-folder-entity-assign-id
+;;; entity
+;;; wl-folder-entity-id-name-hashtb
+;;; t)
+;;; (setq wl-folder-entity-hashtb
+;;; (wl-folder-create-entity-hashtb
+;;; entity
+;;; wl-folder-entity-hashtb
+;;; t))
+;;; (setq wl-folder-newsgroups-hashtb
+;;; (or
+;;; (wl-folder-create-newsgroups-hashtb
+;;; entity nil)
+;;; wl-folder-newsgroups-hashtb))))
+;;; (message "fetching folder entries...done"))
(insert indent "[" (if as-opened "-" "+") "]"
(wl-folder-get-petname (car entity)))
(setq group-name-end (point))
(unread-diff 0)
;;(fld (elmo-string folder))
value newvalue entity-list)
- ;; Update folder-info
- ;;(elmo-folder-set-info-hashtb fld nil nil nil unread)
+;;; Update folder-info
+;;; (elmo-folder-set-info-hashtb fld nil nil nil unread)
(setq cur-unread (or (nth 1 (wl-folder-get-entity-info folder)) 0))
(setq unread-diff (- (or unread 0) cur-unread))
(setq value (wl-folder-get-entity-info folder))
(elmo-folder-info-make-hashtb
info-alist
wl-folder-entity-hashtb)))
-;; (wl-folder-resume-entity-hashtb-by-finfo
-;; wl-folder-entity-hashtb
-;; info-alist)))
+;;; (wl-folder-resume-entity-hashtb-by-finfo
+;;; wl-folder-entity-hashtb
+;;; info-alist)))
(defun wl-folder-cleanup-variables ()
(setq wl-folder-entity nil
(defvar wl-folder-init-func 'wl-local-folder-init)
(defun wl-folder-init ()
+ "Call `wl-folder-init-func' function."
(interactive)
(funcall wl-folder-init-func))
(defun wl-local-folder-init ()
+ "Initialize local folder."
(message "Initializing folder...")
(save-excursion
(set-buffer wl-folder-buffer-name)
(beginning-of-line)
(setq id (get-text-property (point) 'wl-folder-entity-id))
(if (looking-at "^[ ]*\\(.*\\):\\([0-9\\*-]*/[0-9\\*-]*/[0-9\\*]*\\)")
- ;;(looking-at "^[ ]*\\([^\\[].+\\):\\([0-9\\*-]*/[0-9\\*-]*/[0-9\\*]*\\)")
+;;; (looking-at "^[ ]*\\([^\\[].+\\):\\([0-9\\*-]*/[0-9\\*-]*/[0-9\\*]*\\)")
(progn
(delete-region (match-beginning 2)
(match-end 2))
(defun wl-folder-goto-folder-subr (&optional folder sticky)
(beginning-of-line)
(let (summary-buf fld-name entity id error-selecting)
-;; (setq fld-name (wl-folder-get-entity-from-buffer))
-;; (if (or (null fld-name)
-;; (assoc fld-name wl-folder-group-alist))
+;;; (setq fld-name (wl-folder-get-entity-from-buffer))
+;;; (if (or (null fld-name)
+;;; (assoc fld-name wl-folder-group-alist))
(setq fld-name wl-default-folder)
(setq fld-name (or folder
(wl-summary-read-folder fld-name)))
(set-buffer-modified-p nil)))
(defun wl-folder-open-close ()
- "open or close parent entity."
+ "Open or close parent entity."
(interactive)
(save-excursion
(beginning-of-line)
(list diff new-flist new-unsubscribes removes)))
(defun wl-folder-prefetch-entity (entity)
- "Prefetch all new messages in the ENTITY"
+ "Prefetch all new messages in the ENTITY."
(cond
((consp entity)
(let ((flist (nth 2 entity))
(wl-folder-prefetch-entity entity)))))
(defun wl-folder-drop-unsync-entity (entity)
- "Drop all unsync messages in the ENTITY"
+ "Drop all unsync messages in the ENTITY."
(cond
((consp entity)
(let ((flist (nth 2 entity)))
(message "All unsync messages in %s are dropped!" entity-name)))))
(defun wl-folder-write-current-newsgroup ()
+ ""
(interactive)
(wl-summary-write-current-newsgroup (wl-folder-entity-name)))
(defvar wl-highlight-summary-refiled-regexp " *[0-9]+o")
(defvar wl-highlight-summary-copied-regexp " *[0-9]+O")
(defvar wl-highlight-summary-target-regexp " *[0-9]+\\*")
-;(defvar wl-highlight-summary-thread-top-regexp " *[0-9]+[^0-9][^0-9]../..\(.*\)..:.. \\[")
+;;(defvar wl-highlight-summary-thread-top-regexp " *[0-9]+[^0-9][^0-9]../..\(.*\)..:.. \\[")
(defvar wl-highlight-citation-face-list
'(wl-highlight-message-cited-text-1
(setq fsymbol 'wl-highlight-summary-normal-face)))))
(put-text-property bol eol 'face fsymbol)
(if wl-use-highlight-mouse-line
- (put-text-property bol;(1- (match-end 0))
+ (put-text-property bol
+;;; Use bol instead of (1- (match-end 0))
+;;; (1- (match-end 0))
eol 'mouse-face 'highlight))
-; (put-text-property (match-beginning 3) (match-end 3)
-; 'face 'wl-highlight-thread-indent-face)
+;;; (put-text-property (match-beginning 3) (match-end 3)
+;;; 'face 'wl-highlight-thread-indent-face)
;; Dnd stuff.
(if wl-use-dnd
(wl-dnd-set-drag-starter bol eol)))))
(wl-highlight-message beg end t t))
(defun wl-highlight-signature-search-simple (beg end)
- "Search signature area in the body message between beg and end.
+ "Search signature area in the body message between BEG and END.
Returns start point of signature."
(save-excursion
(goto-char end)
end)))
(defun wl-highlight-signature-search (beg end)
- "Search signature area in the body message between beg and end.
+ "Search signature area in the body message between BEG and END.
Returns start point of signature."
(save-excursion
(goto-char end)
current beg
e p hend)
(if too-big
- nil
+ nil
(save-excursion
(save-restriction
(widen)
;; is sufficient
(if (re-search-forward (format
"^$\\|%s"
- (regexp-quote mail-header-separator))
+ (regexp-quote mail-header-separator))
nil t)
(narrow-to-region (point-min) (point)))
;; highlight only when header is not too-big.
(cond (current
(setq p (point))
(forward-line 1) ; this is to put the \n in the face too
- (let ();(inhibit-read-only t))
+ (let ()
+;;; ((inhibit-read-only t))
(put-text-property p (or end (point))
'face current)
(setq end nil))
(setq gbw nil))
(if gbw
(select-window gbw)
-; (if (or (null mes)
-; wl-stay-folder-window)
-; (delete-other-windows))
+;;; (if (or (null mes)
+;;; wl-stay-folder-window)
+;;; (delete-other-windows))
(when wl-fixed-window-configuration
(delete-other-windows)
(and wl-stay-folder-window
(widen)
(forward-page 1)
(if (pos-visible-in-window-p (point))
- (wl-message-narrow-to-page 1)))) ;Go to next page.
+ (wl-message-narrow-to-page 1)))) ; Go to next page.
(if (eobp)
()
(scroll-up))
(select-window (get-buffer-window cur-buf))))
(defun wl-message-follow-current-entity (buffer)
- "Follow to current message"
+ "Follow to current message."
(wl-draft-reply (wl-message-get-original-buffer)
'to-all wl-message-buffer-cur-summary-buffer)
(let ((mail-reply-buffer buffer))
(local-set-key "p" 'wl-message-exit)
(local-set-key "n" 'wl-message-exit)
(elmo-set-buffer-multibyte default-enable-multibyte-characters)
- ;;(decode-mime-charset-region (point-min) (point-max) wl-mime-charset)
+;;; (decode-mime-charset-region (point-min) (point-max) wl-mime-charset)
;; we can call decode-coding-region() directly, because multibyte flag is t.
(decode-coding-region (point-min) (point-max) wl-cs-autoconv)
(wl-highlight-message (point-min)
(wl-message-decode-mode outbuf inbuf))))
(defun wl-message-prev-page (&optional lines)
- "Scroll down this message. Returns non-nil if top of message"
+ "Scroll down this message. Returns non-nil if top of message."
(interactive)
(let ((cur-buf (current-buffer))
(view-message-buffer (get-buffer-create wl-message-buf-name))
(mime-open-entity backend (list folder number msgdb nil))))
(defun wl-message-next-page (&optional lines)
- "Scroll up this message. Returns non-nil if bottom of message"
+ "Scroll up this message. Returns non-nil if bottom of message."
(interactive)
(let ((cur-buf (current-buffer))
(view-message-buffer (get-buffer-create wl-message-buf-name))
folder)
msgdb))
(setq mmelmo-imap4-skipped-parts nil)
- ;;; mime-display-message sets buffer-read-only variable as t.
- ;;; which makes buffer read-only status confused...
+ ;; mime-display-message sets buffer-read-only variable as t.
+ ;; which makes buffer read-only status confused...
(wl-mime-display-message cur-entity view-message-buffer
nil nil 'mmelmo-original-mode)
(if mmelmo-imap4-skipped-parts
(wl-summary-redisplay)))
(defun wl-message-refer-article-or-url (e)
- "Read article specified by message-id around point. If failed,
- attempt to execute button-dispatcher."
+ "Read article specified by message-id around point.
+If failed, attempt to execute button-dispatcher."
(interactive "e")
(let ((window (get-buffer-window (current-buffer)))
mouse-window point beg end msg-id)
(` (mime-read-field (, field-name) (, entity)))))
(defun wl-draft-preview-message ()
+ ""
(interactive)
(let ((mime-display-header-hook 'wl-highlight-headers)
mime-view-ignored-field-list ; all header.
(defun wl-message-request-partial (folder number)
(elmo-set-work-buf
(elmo-read-msg-no-cache folder number (current-buffer))
- (mime-parse-buffer nil))); 'mime-buffer-entity)))
+;;;(mime-parse-buffer nil 'mime-buffer-entity)
+ (mime-parse-buffer nil)))
(defalias 'wl-message-read 'mime-preview-scroll-up-entity)
(defalias 'wl-message-next-content 'mime-preview-move-to-next)
number))
(defun wl-summary-burst ()
+ ""
(interactive)
(let ((raw-buf (wl-message-get-original-buffer))
children message-entity content-type target)
;;; Yet another combine method.
(defun wl-mime-combine-message/partial-pieces (entity situation)
- "Internal method for wl to combine message/partial messages
-automatically."
+ "Internal method for wl to combine message/partial messages automatically."
(interactive)
(let* ((msgdb (save-excursion
(set-buffer wl-message-buffer-cur-summary-buffer)
(setq root-dir (concat root-dir "/" (replace-as-filename id)))
(setq full-file (concat root-dir "/FULL"))
(if (or (file-exists-p full-file)
- (not (y-or-n-p "Merge partials?")))
+ (not (y-or-n-p "Merge partials? ")))
(with-current-buffer mother
(mime-store-message/partial-piece entity situation))
(setq subject-id
guess))
(defun wl-refile-evaluate-rule (rule entity)
- "Returns folder string if RULE is matched to ENTITY.
+ "Return folder string if RULE is matched to ENTITY.
If RULE does not match ENTITY, returns nil."
(let ((case-fold-search t)
fields guess pairs value)
It is assumed to be a single-line subject.
Whitespace is generally cleaned up, and miscellaneous leading/trailing
matter is removed. Additional things can be deleted by setting
-wl-score-simplify-fuzzy-regexp."
+`wl-score-simplify-fuzzy-regexp'."
(let ((regexp
(if (listp wl-score-simplify-fuzzy-regexp)
(mapconcat (function identity) wl-score-simplify-fuzzy-regexp
(elmo-buffer-replace "^ +")))
(defun wl-score-simplify-string-fuzzy (string)
- "Simplify a string fuzzily.
+ "Simplify a STRING fuzzily.
See `wl-score-simplify-buffer-fuzzy' for details."
(elmo-set-work-buf
(let ((case-fold-search t))
(buffer-string))))
(defun wl-score-simplify-subject (subject)
+ "Simplify a SUBJECT fuzzily.
+Remove Re, Was, Fwd etc."
(elmo-set-work-buf
(let ((regexp
(if (listp wl-score-simplify-fuzzy-regexp)
(sort messages func)))
(defsubst wl-score-get (symbol &optional alist)
+ "Get SYMBOL's definition in ALIST."
;; Get SYMBOL's definition in ALIST.
(cdr (assoc symbol
(or alist
wl-score-alist))))
(defun wl-score-set (symbol value &optional alist warn)
+ "Set SYMBOL to VALUE in ALIST."
;; Set SYMBOL to VALUE in ALIST.
(let* ((alist (or alist wl-score-alist))
(entry (assoc symbol alist)))
(cons (cons symbol value) (cdr alist)))))))
(defun wl-score-cache-clean ()
+ "Cleaning score cache.
+Set `wl-score-cache' nil."
(interactive)
(setq wl-score-cache nil))
(setq wl-score-alist alist)))))))
(defun wl-score-save ()
+ "Save all score information."
;; Save all score information.
(let ((cache wl-score-cache)
entry score file dir)
(eword-decode-region (point-min) (point-max))))))))
(defun wl-score-string (scores header now expire &optional extra-header)
+ "Insert the unique message headers in the buffer."
;; Insert the unique message headers in the buffer.
(let ((wl-score-index (nth 2 (assoc header wl-score-header-index)))
entries alist messages
(and (eolp)
(= (save-excursion (forward-line 0) (point))
(match-beginning 0))))
- ;;(end-of-line)
+;;; (end-of-line)
(setq found (setq arts (wl-score-get-alike)))
;; Found a match, update scores.
(while (setq art (pop arts))
(wl-score-followup scores header now expire t))
(defun wl-score-followup (scores header now expire &optional thread)
+ "Insert the unique message headers in the buffer."
;; Insert the unique message headers in the buffer.
(let ((wl-score-index (nth 2 (assoc header wl-score-header-index)))
(all-scores scores)
(and (eolp)
(= (progn (beginning-of-line) (point))
(match-beginning 0))))
- ;;(end-of-line)
+;;; (end-of-line)
(setq found (setq arts (wl-score-get-alike)))
;; Found a match, update scores.
(while (setq art (pop arts))
(call-interactively 'wl-score-edit-file)))
(defun wl-score-edit-file (file)
- "Edit a score file."
+ "Edit a score FILE."
(interactive
(list (read-file-name "Edit score file: " wl-score-files-dir)))
(when (wl-collect-summary)
(define-key wl-summary-mode-map "p" 'wl-summary-prev)
(define-key wl-summary-mode-map "N" 'wl-summary-down)
(define-key wl-summary-mode-map "P" 'wl-summary-up)
-; (define-key wl-summary-mode-map "w" 'wl-draft)
+;;;(define-key wl-summary-mode-map "w" 'wl-draft)
(define-key wl-summary-mode-map "w" 'wl-summary-write)
(define-key wl-summary-mode-map "W" 'wl-summary-write-current-newsgroup)
-; (define-key wl-summary-mode-map "e" 'wl-draft-open-file)
+;;;(define-key wl-summary-mode-map "e" 'wl-draft-open-file)
(define-key wl-summary-mode-map "e" 'wl-summary-save)
(define-key wl-summary-mode-map "\C-c\C-o" 'wl-jump-to-draft-buffer)
(define-key wl-summary-mode-map "H" 'wl-summary-redisplay-all-header)
(defun wl-summary-reedit (&optional arg)
"Re-edit current message.
-If optional argument is non-nil, Supersedes message"
+If ARG is non-nil, Supersedes message"
(interactive "P")
(if arg
(wl-summary-supersedes-message)
(message "Resending message to %s...done" address))))
(defun wl-summary-msgdb-load-async (folder)
- "Loading msgdb and selecting folder is executed asynchronously in IMAP4."
+ "Loading msgdb and selecting FOLDER is executed asynchronously in IMAP4."
(if (and (elmo-folder-plugged-p folder)
(eq (elmo-folder-get-type folder) 'imap4))
(let ((spec (elmo-folder-get-spec folder))
ma Put the '*' mark onto all messages.
? Pick messages according to a pick pattern which you input,
then put the '*' mark onto them.
-q Goto folder mode.
-"
+q Goto folder mode."
(interactive)
(unless (interactive-p) (kill-all-local-variables))
(setq major-mode 'wl-summary-mode)
(setq mode-name "Summary")
(use-local-map wl-summary-mode-map)
-;; (setq default-directory (or wl-tmp-dir (expand-file-name "~/")))
+;;;(setq default-directory (or wl-tmp-dir (expand-file-name "~/")))
(setq buffer-read-only t)
(setq truncate-lines t)
-;; (make-local-variable 'tab-width)
-;; (setq tab-width 1)
+;;;(make-local-variable 'tab-width)
+;;;(setq tab-width 1)
(buffer-disable-undo (current-buffer))
(if wl-use-semi
(setq wl-summary-buffer-message-redisplay-func
(run-hooks 'wl-summary-mode-hook))
(defun wl-summary-overview-entity-compare-by-date (x y)
- "Compare entity by date"
+ "Compare entity X and Y by date."
(condition-case nil
(string<
(timezone-make-date-sortable
(error))) ;; ignore error.
(defun wl-summary-overview-entity-compare-by-number (x y)
- "Compare entity by number"
+ "Compare entity X and Y by number."
(<
(elmo-msgdb-overview-entity-get-number x)
(elmo-msgdb-overview-entity-get-number y)))
(defun wl-summary-overview-entity-compare-by-from (x y)
- "Compare entity by from"
+ "Compare entity X and Y by from."
(string<
(wl-address-header-extract-address
(or (elmo-msgdb-overview-entity-get-from-no-decode x)
wl-summary-no-from-message))))
(defun wl-summary-overview-entity-compare-by-subject (x y)
- "Compare entity by subject"
+ "Compare entity X and Y by subject."
(string< (elmo-msgdb-overview-entity-get-subject-no-decode x)
(elmo-msgdb-overview-entity-get-subject-no-decode y)))
(elmo-msgdb-mark-save
path
(elmo-msgdb-get-mark-alist wl-summary-buffer-msgdb))
-;; (elmo-folder-set-info-hashtb
-;; (elmo-string wl-summary-buffer-folder-name)
-;; nil nil
-;; 0
-;; (+ wl-summary-buffer-new-count wl-summary-buffer-unread-count))
-;; (setq wl-folder-info-alist-modified t)
+;;; (elmo-folder-set-info-hashtb
+;;; (elmo-string wl-summary-buffer-folder-name)
+;;; nil nil
+;;; 0
+;;; (+ wl-summary-buffer-new-count wl-summary-buffer-unread-count))
+;;; (setq wl-folder-info-alist-modified t)
(setq wl-summary-buffer-mark-modified nil)
(run-hooks 'wl-summary-buffer-mark-saved-hook))))))
(if (or wl-summary-buffer-refile-list
wl-summary-buffer-copy-list
wl-summary-buffer-delete-list)
- (if (y-or-n-p "Marks remain to be executed. Execute them?")
+ (if (y-or-n-p "Marks remain to be executed. Execute them? ")
(progn
(wl-summary-exec)
(if (or wl-summary-buffer-refile-list
(wl-summary-msgdb-save)))
(defun wl-summary-force-exit ()
- "Exit current summary. Buffer is deleted even the buffer is sticky"
+ "Exit current summary. Buffer is deleted even the buffer is sticky."
(interactive)
(wl-summary-exit 'force-exit))
(defun wl-summary-exit (&optional force-exit)
- "Exit current summary. if FORCE-EXIT, exits even the summary is sticky."
+ "Exit current summary. if FORCE-EXIT, exits even the summary is sticky."
(interactive "P")
(let ((summary-buf (current-buffer))
(sticky (wl-summary-sticky-p))
(let* ((msgdb wl-summary-buffer-msgdb)
(number-alist (elmo-msgdb-get-number-alist msgdb)))
(elmo-mark-as-read wl-summary-buffer-folder-name
- (mapcar
+ (mapcar
(lambda (msgid)
(car (rassoc msgid number-alist)))
seen-list) msgdb)))
(setq mes (wl-summary-sync-update3 seen-list unset-cursor))
(elmo-msgdb-seen-save msgdb-dir nil) ; delete all seen.
(if mes (message "%s" mes)))
-; (wl-summary-sync-all folder t))
+;;; (wl-summary-sync-all folder t))
((string= range "rescan")
(let ((msg (wl-summary-message-number)))
(wl-summary-rescan)
(nth 1 address)
(nth 0 address)
result)))
- ;; i'd like to update summary-buffer, but...
- ;;(wl-summary-rescan)
+;;; i'd like to update summary-buffer, but...
+;;; (wl-summary-rescan)
(run-hooks 'wl-summary-edit-addresses-hook)))))
(defun wl-summary-incorporate (&optional arg)
"Check and prefetch all uncached messages.
-If optional argument is non-nil, checking is omitted."
+If ARG is non-nil, checking is omitted."
(interactive "P")
(unless arg
(save-excursion
(widen)
(y-or-n-p
(format
- "Message from %s has %d bytes. Prefetch it?"
+ "Message from %s has %d bytes. Prefetch it? "
(concat
"[ "
(save-match-data
wl-summary-buffer-new-count)))
new-mark))))))))
-;(defvar wl-summary-message-uncached-marks
-; (list wl-summary-new-mark
-; wl-summary-unread-uncached-mark
-; wl-summary-read-uncached-mark))
+;;(defvar wl-summary-message-uncached-marks
+;; (list wl-summary-new-mark
+;; wl-summary-unread-uncached-mark
+;; wl-summary-read-uncached-mark))
(defun wl-summary-prefetch-region (beg end &optional prefetch-marks)
(interactive "r")
(wl-highlight-summary-current-line))))))
(defun wl-summary-delete-all-marks (mark-alist mark)
- "Delete all MARKs in MARK-ALIST"
+ "Delete all MARKs in MARK-ALIST."
(let ((malist mark-alist)
(ret-val mark-alist)
entity)
(interactive "r")
(save-excursion
(save-restriction
- (narrow-to-region beg end);(save-excursion (goto-char end)
- ; (end-of-line) (point)))
+ (narrow-to-region beg end)
+;;; use narrowing.
+;;; (save-excursion (goto-char end)
+;;; (end-of-line) (point)))
(goto-char (point-min))
(if (eq wl-summary-buffer-view 'thread)
(progn
(interactive "r")
(save-excursion
(save-restriction
- (narrow-to-region beg end);(save-excursion (goto-char end)
- ; (end-of-line) (point)))
+ (narrow-to-region beg end)
+;;; use narrowing.
+;;; (save-excursion (goto-char end)
+;;; (end-of-line) (point)))
(goto-char (point-min))
(if (eq wl-summary-buffer-view 'thread)
(progn
(defun wl-summary-mark-as-read-all ()
(interactive)
(if (or (not (interactive-p))
- (y-or-n-p "Mark all messages as read?"))
+ (y-or-n-p "Mark all messages as read? "))
(let* ((folder wl-summary-buffer-folder-name)
(cur-buf (current-buffer))
(msgdb wl-summary-buffer-msgdb)
- ;;(number-alist (elmo-msgdb-get-number-alist msgdb))
+;;; (number-alist (elmo-msgdb-get-number-alist msgdb))
(mark-alist (elmo-msgdb-get-mark-alist msgdb))
(malist mark-alist)
(inhibit-read-only t)
(setq mark-alist
(elmo-msgdb-mark-set
mark-alist
- msg ;(cdr (assq msg number-alist))
+ msg
+;;; Use msg instead of (cdr (assq msg number-alist)).
+;;; (cdr (assq msg number-alist))
nil)))
;; New mark and unread-uncached mark
(insert wl-summary-read-uncached-mark)
(setq mark-alist
(elmo-msgdb-mark-set mark-alist
msg
- ; (cdr (assq msg number-alist))
+;;; (cdr (assq msg number-alist))
wl-summary-read-uncached-mark)))
(if wl-summary-highlight
(wl-highlight-summary-current-line nil nil t)))))
(number-alist (elmo-msgdb-get-number-alist msgdb))
(case-fold-search nil)
mark number unread new-mark)
-; (re-search-backward "^ *[0-9]+..[0-9]+/[0-9]+" nil t) ; set cursor line
+;;; (re-search-backward "^ *[0-9]+..[0-9]+/[0-9]+" nil t) ; set cursor line
(beginning-of-line)
(when (looking-at "^ *\\([0-9]+\\)[^0-9]\\([^0-9]\\)")
(progn
(defun wl-summary-resume-marks-and-highlight ()
(let* ((msgdb wl-summary-buffer-msgdb)
(mark-alist (elmo-msgdb-get-mark-alist msgdb))
- ;;(number-alist (elmo-msgdb-get-number-alist msgdb))
+;;; (number-alist (elmo-msgdb-get-number-alist msgdb))
(count (count-lines (point-min)(point-max)))
(i 0)
msg-num percent smark)
(while mark-alist
(setq entity (car mark-alist))
(if (setq msg-num (car (rassoc (car entity) number-alist)))
- (progn ;(goto-char (point-min))
+ (progn
+;;; (goto-char (point-min))
(if (re-search-forward (format "^ *%s \\( \\)" msg-num) nil t)
(progn
(delete-region (match-beginning 1) (match-end 1))
ret-val))
(defun wl-summary-set-status-marks (mark-alist before after)
- "Set the BEFORE marks to AFTER"
+ "Set the BEFORE marks to AFTER."
(let ((ret-val mark-alist)
entity)
(while mark-alist
ret-val))
(defun wl-summary-set-status-marks-on-buffer (before after)
- "Set the MARKS marks on buffer"
+ "Set the MARKS marks on buffer."
(interactive)
(save-excursion
(goto-char (point-min))
(defun wl-summary-get-append-message-func ()
(if (eq wl-summary-buffer-view 'thread)
'wl-summary-insert-thread-entity
-; 'wl-summary-insert-thread
+;;; 'wl-summary-insert-thread
'wl-summary-insert-summary))
(defun wl-summary-sort ()
(let ((len (length appends))
in)
(if (> len wl-summary-update-confirm-threshold)
- (if (y-or-n-p (format "Too many messages(%d). Continue?" len))
+ (if (y-or-n-p (format "Too many messages(%d). Continue? " len))
appends
(setq in wl-summary-update-confirm-threshold)
(catch 'end
in (string-to-int in))
(if (< len in)
(throw 'end len))
- (if (y-or-n-p (format "%d messages are disappeared. OK?"
+ (if (y-or-n-p (format "%d messages are disappeared. OK? "
(max (- len in) 0)))
(throw 'end in))))
(nthcdr (max (- len in) 0) appends))
(number-alist (elmo-msgdb-get-number-alist msgdb))
(mark-alist (elmo-msgdb-get-mark-alist msgdb))
(overview (elmo-msgdb-get-overview msgdb))
- ;;(location (elmo-msgdb-get-location msgdb))
+;;; (location (elmo-msgdb-get-location msgdb))
(case-fold-search nil)
(elmo-mime-charset wl-summary-buffer-mime-charset)
(inhibit-read-only t)
entity ret-val crossed crossed2 sync-all
update-thread update-top-list mark
expunged msgs unreads importants)
- ;(setq seen-list nil) ;for debug.
+;;; (setq seen-list nil) ;for debug.
(fset 'wl-summary-append-message-func-internal
(wl-summary-get-append-message-func))
;; Flush pending append operations (disconnected operation).
(when delete-list
(message "Deleting...")
(elmo-msgdb-delete-msgs folder delete-list msgdb t) ; reserve cache.
- ;;(set-buffer cur-buf)
+;;; (set-buffer cur-buf)
(wl-summary-delete-messages-on-buffer delete-list "Deleting...")
(message "Deleting...done"))
- ;;(set-buffer cur-buf)
+;;; (set-buffer cur-buf)
;; Change "New" marks to "Uncached Unread" marks.
(wl-summary-set-status-marks mark-alist
wl-summary-new-mark
(setq overview (elmo-msgdb-get-overview msgdb))
(setq number-alist (elmo-msgdb-get-number-alist msgdb))
(setq mark-alist (elmo-msgdb-get-mark-alist msgdb))
- ;; (setq location (elmo-msgdb-get-location msgdb))
+;;; (setq location (elmo-msgdb-get-location msgdb))
(setq curp overview-append)
(setq num (length curp))
(setq wl-summary-delayed-update nil)
(wl-thread-update-indent-string-thread
(elmo-uniq-list update-top-list)))
(message "Updating thread...done")
- ;;(set-buffer cur-buf)
+;;; (set-buffer cur-buf)
))
(wl-summary-set-message-modified)
(wl-summary-set-mark-modified)
(defun wl-summary-move (src dsts-msgs)
(let* ((dsts (car dsts-msgs)) ; (+foo +bar)
-;; (msgs (cdr dsts-msgs)) ; (1 2 3)
-;; (msgdb wl-summary-buffer-msgdb)
-;; result)
+;;; (msgs (cdr dsts-msgs)) ; (1 2 3)
+;;; (msgdb wl-summary-buffer-msgdb)
+;;; result)
)
(while dsts
(setq dsts (cdr dsts)))))
(set-buffer cur-buf)
(if (null dels)
(message "No message to delete.")
- (if (y-or-n-p (format "%s has %d message(s). Delete all?"
+ (if (y-or-n-p (format "%s has %d message(s). Delete all? "
wl-summary-buffer-folder-name
(length dels)))
(progn
wl-summary-buffer-msgdb)
(elmo-msgdb-delete-msgs wl-summary-buffer-folder-name
dels wl-summary-buffer-msgdb)
- ;;(elmo-msgdb-save wl-summary-buffer-folder-name nil)
+;;; (elmo-msgdb-save wl-summary-buffer-folder-name nil)
(wl-summary-set-message-modified)
(wl-summary-set-mark-modified)
(wl-folder-set-folder-updated wl-summary-buffer-folder-name
(list 0 0 0))
- ;; for thread.
- ;; (setq wl-thread-top-entity '(nil t nil nil))
+;;; for thread.
+;;; (setq wl-thread-top-entity '(nil t nil nil))
(setq wl-summary-buffer-unread-count 0)
(setq wl-summary-buffer-new-count 0)
(wl-summary-update-modeline)
(let ((inhibit-read-only t)
(buffer-read-only nil))
(erase-buffer))
- ;; (if wl-summary-cache-use (wl-summary-save-view-cache))
+;;; (if wl-summary-cache-use (wl-summary-save-view-cache))
(message "Deleting...done")
t)
nil))))
(defun wl-summary-toggle-thread (&optional arg)
- "Toggle thread status (T)hread and (S)equencial."
+ "Toggle thread status (T)hread and (S)equencial.
+If ARG, without confirm."
(interactive "P")
(when (or arg
(y-or-n-p (format "Toggle threading? (y=%s): "
(setq ret-val
(condition-case nil
(read (current-buffer))
- (error (error "reading failed")))))
+ (error (error "Reading failed")))))
(kill-buffer tmp-buffer)
ret-val)))
(interactive "P")
(if (wl-summary-sticky-p)
(message "Current summary buffer is already sticky.")
- (when (or force (y-or-n-p "Stick current summary buffer?"))
+ (when (or force (y-or-n-p "Stick current summary buffer? "))
(wl-summary-toggle-disp-msg 'off)
(wl-summary-switch-to-clone-buffer
(wl-summary-sticky-buffer-name
wl-summary-buffer-folder-name))
;;; ???hang up
-; (rename-buffer (wl-summary-sticky-buffer-name
-; wl-summary-buffer-folder-name)))
+;;; (rename-buffer (wl-summary-sticky-buffer-name
+;;; wl-summary-buffer-folder-name)))
(message "Folder `%s' is now sticky." wl-summary-buffer-folder-name))))
(defun wl-summary-switch-to-clone-buffer (buffer-name)
(defun wl-summary-goto-folder-subr (&optional folder scan-type other-window
sticky interactive scoring)
- "Display target folder on summary"
+ "Display target folder on summary."
(interactive)
(let* ((keep-cursor (memq this-command
wl-summary-keep-cursor-command))
retval))
(defun wl-summary-summary-line-already-exists-p (parent-number buffer)
- "returns the depth."
+ "Return the depth."
(set-buffer buffer)
(goto-char (point-max))
(let ((depth 0))
(let* ((this-id (elmo-msgdb-overview-entity-get-id entity))
(parent-entity
(elmo-msgdb-overview-get-parent-entity entity overview));; temp
- ;;(parent-id (elmo-msgdb-overview-entity-get-id parent-entity))
+;;; (parent-id (elmo-msgdb-overview-entity-get-id parent-entity))
(parent-number (elmo-msgdb-overview-entity-get-number parent-entity))
(case-fold-search t)
msg overview2 cur-entity linked retval delayed-entity)
(folder wl-summary-buffer-folder-name)
(msgdb wl-summary-buffer-msgdb)
(mark-alist (elmo-msgdb-get-mark-alist msgdb))
- ;;(number-alist (elmo-msgdb-get-number-alist msgdb))
+;;; (number-alist (elmo-msgdb-get-number-alist msgdb))
new-mark visible mark)
(if number
(progn
(goto-char start) ; avoid moving cursor to
; the bottom line.
(while dst-msgs
- ;;(elmo-msgdb-add-msgs-to-seen-list
- ;; (car (car dst-msgs)) ;dst-folder
- ;; (cdr (car dst-msgs)) ;msgs
- ;; wl-summary-buffer-msgdb
- ;; (concat wl-summary-important-mark
- ;; wl-summary-read-uncached-mark))
+;;; (elmo-msgdb-add-msgs-to-seen-list
+;;; (car (car dst-msgs)) ;dst-folder
+;;; (cdr (car dst-msgs)) ;msgs
+;;; wl-summary-buffer-msgdb
+;;; (concat wl-summary-important-mark
+;;; wl-summary-read-uncached-mark))
(setq result nil)
(condition-case nil
(setq result (elmo-move-msgs wl-summary-buffer-folder-name
;; begin cOpy...
(setq dst-msgs (wl-inverse-alist copies wl-summary-buffer-copy-list))
(while dst-msgs
- ;;(elmo-msgdb-add-msgs-to-seen-list
- ;; (car (car dst-msgs)) ;dst-folder
- ;; (cdr (car dst-msgs)) ;msgs
- ;; wl-summary-buffer-msgdb
- ;; (concat wl-summary-important-mark
- ;; wl-summary-read-uncached-mark))
+;;; (elmo-msgdb-add-msgs-to-seen-list
+;;; (car (car dst-msgs)) ;dst-folder
+;;; (cdr (car dst-msgs)) ;msgs
+;;; wl-summary-buffer-msgdb
+;;; (concat wl-summary-important-mark
+;;; wl-summary-read-uncached-mark))
(setq result nil)
(condition-case nil
(setq result (elmo-move-msgs wl-summary-buffer-folder-name
(defun wl-summary-remove-destination ()))
(defsubst wl-summary-get-mark (number)
- "Returns a temporal mark of message specified by NUMBER."
+ "Return a temporal mark of message specified by NUMBER."
(or (and (memq number wl-summary-buffer-delete-list) "D")
(and (assq number wl-summary-buffer-copy-list) "O")
(and (assq number wl-summary-buffer-refile-list) "o")
(and (assq number wl-summary-buffer-target-mark-list) "*")))
(defsubst wl-summary-reserve-temp-mark-p (mark)
- "Returns t if temporal MARK should be reserved."
+ "Return t if temporal MARK should be reserved."
(member mark wl-summary-reserve-mark-list))
(defun wl-summary-refile (&optional dst number)
msg-num)))
(defun wl-summary-refile-prev-destination ()
- "Refile message to previously refiled destination"
+ "Refile message to previously refiled destination."
(interactive)
(wl-summary-refile wl-summary-buffer-prev-refile-destination
(wl-summary-message-number))
(wl-summary-next)))
(defun wl-summary-copy-prev-destination ()
- "Refile message to previously refiled destination"
+ "Refile message to previously refiled destination."
(interactive)
(wl-summary-copy wl-summary-buffer-prev-copy-destination
(wl-summary-message-number))
(member (cadr (assq msg mark-alist)) wl-summary-auto-refile-skip-marks))
(defun wl-summary-auto-refile (&optional open-all)
- "Set refile mark automatically according to wl-refile-guess-by-rule."
+ "Set refile mark automatically according to 'wl-refile-guess-by-rule'."
(interactive "P")
(message "Marking...")
(save-excursion
(setq beg (point))
(end-of-line)
(wl-summary-goto-bottom-of-current-thread)
-; (forward-line -1)
+;;; (forward-line -1)
(beginning-of-line)
(setq end (point))
(wl-summary-target-mark-region beg end)))
(defun wl-summary-pick (&optional from-list delete-marks)
(interactive)
- (let ((result (elmo-msgdb-search
+ (let ((result (elmo-msgdb-search
wl-summary-buffer-folder-name
(elmo-read-search-condition wl-summary-pick-field-default)
wl-summary-buffer-msgdb)))
(error "This folder is not filtered")))
(defun wl-summary-virtual (&optional arg)
- "Goto virtual folder."
+ "Goto virtual folder.
+If ARG, exit virtual folder."
(interactive "P")
(if arg
(wl-summary-unvirtual)
(delq pair wl-summary-buffer-refile-list))))))))
(defun wl-summary-mark-line (mark)
- "Put MARK on current line. Returns message number."
+ "Put MARK on current line. Return message number."
(save-excursion
(beginning-of-line)
(let ((inhibit-read-only t)
(setq cur-mark (wl-match-buffer 2))
(goto-char (match-end 1))
(delete-region (match-beginning 2) (match-end 2))
- ;(wl-summary-delete-mark msg-num)
+;;; (wl-summary-delete-mark msg-num)
(insert mark)
(if wl-summary-highlight
(wl-highlight-summary-current-line nil nil t))
(setq mlist wl-summary-buffer-target-mark-list)
(while mlist
(wl-summary-mark-as-unread (car mlist))
- ;; (wl-thread-msg-mark-as-unread (car mlist))
+;;; (wl-thread-msg-mark-as-unread (car mlist))
(setq wl-summary-buffer-target-mark-list
(delq (car mlist) wl-summary-buffer-target-mark-list))
(setq mlist (cdr mlist)))
(folder wl-summary-buffer-folder-name)
(msgdb wl-summary-buffer-msgdb)
(mark-alist (elmo-msgdb-get-mark-alist msgdb))
- ;;(number-alist (elmo-msgdb-get-number-alist msgdb))
+;;; (number-alist (elmo-msgdb-get-number-alist msgdb))
(case-fold-search nil)
mark stat visible uncached new-mark marked)
(if number
(let* ((dir (elmo-msgdb-expand-path wl-summary-buffer-folder-name))
(cache (expand-file-name wl-summary-cache-file dir))
(view (expand-file-name wl-summary-view-file dir))
- ;;(coding-system-for-write wl-cs-cache)
- ;;(output-coding-system wl-cs-cache)
+;;; (coding-system-for-write wl-cs-cache)
+;;; (output-coding-system wl-cs-cache)
(save-view wl-summary-buffer-view)
(tmp-buffer (get-buffer-create " *wl-summary-save-view-cache*"))
(charset wl-summary-buffer-mime-charset))
(if wl-summary-buffer-disp-msg
(progn
(wl-summary-redisplay)
- ;; hide your folder window
-;; (setq fld-buf (get-buffer wl-folder-buffer-name))
-;; (if (setq fld-win (get-buffer-window fld-buf))
-;; (delete-window fld-win)))
+;;; hide your folder window
+;;; (setq fld-buf (get-buffer wl-folder-buffer-name))
+;;; (if (setq fld-win (get-buffer-window fld-buf))
+;;; (delete-window fld-win)))
(run-hooks 'wl-summary-toggle-disp-on-hook))
(wl-delete-all-overlays)
(save-excursion
(delete-window)
(select-window (get-buffer-window cur-buf))
(run-hooks 'wl-summary-toggle-disp-off-hook))
- ;;(switch-to-buffer cur-buf)
+;;; (switch-to-buffer cur-buf)
)))))
(defun wl-summary-next-line-content ()
(errmsg
(format "No message with id \"%s\" in the folder." msgid)))
(if (setq msg (car (rassoc msgid number-alist)))
- ;;(wl-summary-jump-to-msg-internal
- ;;wl-summary-buffer-folder-name msg 'no-sync)
+;;; (wl-summary-jump-to-msg-internal
+;;; wl-summary-buffer-folder-name msg 'no-sync)
(progn
(wl-thread-jump-to-msg msg)
t)
(defun wl-summary-reply (&optional arg without-setup-hook)
"Reply to current message. Default is \"wide\" reply.
-Reply to author if invoked with argument."
+Reply to author if invoked with ARG."
(interactive "P")
(let ((folder wl-summary-buffer-folder-name)
(number (wl-summary-message-number))
(mail-position-on-field "To"))
(defun wl-summary-write-current-newsgroup (&optional folder)
+ ""
(interactive)
(let* ((folder (or folder wl-summary-buffer-folder-name))
(flist (elmo-folder-get-primitive-folder-list folder))
(error "%s is not newsgroup" folder))))
(defun wl-summary-forward (&optional without-setup-hook)
+ ""
(interactive)
(let ((folder wl-summary-buffer-folder-name)
(number (wl-summary-message-number))
(wl-summary-read))
(defun wl-summary-read ()
+ ""
(interactive)
(let ((folder wl-summary-buffer-folder-name)
(number (wl-summary-message-number))
(progn
(if (wl-summary-next-page)
(wl-summary-down t)))
-; (wl-summary-scroll-up-content)))
+;;; (wl-summary-scroll-up-content)))
(if (wl-summary-no-mime-p folder)
(wl-summary-redisplay-no-mime folder number)
(wl-summary-redisplay-internal folder number)))))
(defun wl-summary-prev (&optional interactive)
+ ""
(interactive)
(if wl-summary-move-direction-toggle
(setq wl-summary-move-direction-downward nil))
(wl-summary-entity-info-msg next-entity finfo))))))))
(defun wl-summary-next (&optional interactive)
+ ""
(interactive)
(if wl-summary-move-direction-toggle
(setq wl-summary-move-direction-downward t))
(wl-summary-entity-info-msg next-entity finfo))))))))
(defun wl-summary-up (&optional interactive skip-no-unread)
+ ""
(interactive)
(if wl-summary-move-direction-toggle
(setq wl-summary-move-direction-downward nil))
(wl-summary-set-message-buffer-or-redisplay)
(set-buffer (wl-message-get-original-buffer))
(if (and (null arg) (file-exists-p filename))
- (if (y-or-n-p "file already exists. override it?")
+ (if (y-or-n-p "File already exists. override it? ")
(write-region (point-min) (point-max) filename))
(write-region (point-min) (point-max) filename)))
(message "No message to save."))
(save-excursion
(wl-summary-set-message-buffer-or-redisplay)
(if (or (not (interactive-p))
- (y-or-n-p "Print ok?"))
+ (y-or-n-p "Print ok? "))
(progn
(let* ((message-buffer (get-buffer wl-message-buf-name))
- ;; (summary-buffer (get-buffer wl-summary-buffer-name))
+;;; (summary-buffer (get-buffer wl-summary-buffer-name))
(buffer (generate-new-buffer " *print*")))
(set-buffer message-buffer)
(copy-to-buffer buffer (point-min) (point-max))
(message "No message.")
(setq filename (ps-print-preprint current-prefix-arg))
(if (or (not (interactive-p))
- (y-or-n-p "Print ok?"))
+ (y-or-n-p "Print ok? "))
(let ((summary-buffer (current-buffer))
wl-break-pages)
(save-excursion
- ;;(wl-summary-set-message-buffer-or-redisplay)
+;;; (wl-summary-set-message-buffer-or-redisplay)
(wl-summary-redisplay-internal)
(let* ((message-buffer (get-buffer wl-message-buf-name))
(buffer (generate-new-buffer " *print*"))
orig-buf tmp-buf t
(= i k)))
nil
- (error "Can't find begin line.")))
+ (error "Can't find begin line")))
((< i k)
(wl-message-uu-substring orig-buf tmp-buf))
(t ; last
wl-prog-uudecode-arg))))
(when (not (= 0 rc))
(setq errmsg (buffer-substring (point-min)(point-max)))
- (error "uudecode error: %s" errmsg))
+ (error "Uudecode error: %s" errmsg))
(if (not wl-prog-uudecode-no-stdout-option)
(let (file-name-handler-alist) ;; void jka-compr
(as-binary-output-file
(if (elmo-folder-pipe-p wl-summary-buffer-folder-name)
(error "You cannot drop unsync messages in this folder"))
(if (or (not (interactive-p))
- (y-or-n-p "Drop all unsync messages?"))
+ (y-or-n-p "Drop all unsync messages? "))
(let* ((folder-list (elmo-folder-get-primitive-folder-list
wl-summary-buffer-folder-name))
(is-multi (elmo-multi-p wl-summary-buffer-folder-name))
(defun wl-cache-prefetch-next (fld msg &optional summary)
(if (wl-cache-prefetch-p fld)
(if (not elmo-use-buffer-cache)
- ;; (message "`elmo-use-buffer-cache' is nil, cache prefetch is disable.")
+;;; (message "`elmo-use-buffer-cache' is nil, cache prefetch is disable.")
(save-excursion
(set-buffer (or summary (get-buffer wl-summary-buffer-name)))
(let ((next (funcall wl-cache-prefetch-get-next-func msg)))
(define-key wl-template-mode-map "\n" 'wl-template-set))
(defun wl-template-apply (name)
+ "Apply NAME templete to draft."
(let (template)
(when name
(if (string= name "")
(run-hooks 'wl-template-mode-hook))
(defun wl-template-select ()
+ "Select templete from `wl-template-alist'."
(interactive)
(if (not wl-template-visible-select)
(wl-template-apply
(wl-template-show))))
(defun wl-template-show (&optional arg)
- "Show reference INDEX in wl-template-alist."
+ "Show reference INDEX in `wl-template-alist'.
+ARG is ignored." ; ARG ignored this version (?)
(save-excursion
(set-buffer wl-template-buffer-name)
(let ((buffer-read-only nil)
(if win (select-window win))))))
(defun wl-template-insert (name &optional mail-header)
+ "Insert NAME templete.
+Set header-separator is MAIL-HEADER."
(let ((template (cdr (assoc name wl-template-alist)))
(mail-header-separator (or mail-header
mail-header-separator)))
(require 'wl-highlight)
;; buffer local variables.
-;(defvar wl-thread-top-entity '(nil t nil nil)) ; top entity
+;;(defvar wl-thread-top-entity '(nil t nil nil)) ; top entity
(defvar wl-thread-tops nil) ; top number list (number)
(defvar wl-thread-entities nil)
(defvar wl-thread-entity-list nil) ; entity list
ret-val))
(defun wl-thread-jump-to-prev-unread (&optional hereto)
- "If prev unread is a children of a closed message,
-the closed parent will be opened."
+ "If prev unread is a children of a closed message.
+The closed parent will be opened."
(interactive "P")
(let ((msg (wl-thread-get-prev-unread
(wl-summary-message-number) hereto)))
ret-val))
(defun wl-thread-jump-to-next-unread (&optional hereto)
- "If next unread is a children of a closed message,
-the closed parent will be opened."
+ "If next unread is a children of a closed message.
+The closed parent will be opened."
(interactive "P")
(let ((msg (wl-thread-get-next-unread
(wl-summary-message-number) hereto)))
(let ((i 0)
(updates msgs)
len)
-;; (while msgs
-;; (setq updates
-;; (append updates
-;; (wl-thread-get-children-msgs (car msgs))))
-;; (setq msgs (cdr msgs)))
-;; (setq updates (elmo-uniq-list updates))
+;;; (while msgs
+;;; (setq updates
+;;; (append updates
+;;; (wl-thread-get-children-msgs (car msgs))))
+;;; (setq msgs (cdr msgs)))
+;;; (setq updates (elmo-uniq-list updates))
(setq len (length updates))
(while updates
(wl-thread-update-line-on-buffer-sub nil (car updates))
(setq parent (wl-thread-entity-get-parent-entity entity))
(if parent
(progn
- ;; has parent.
- ;;(setq brothers (wl-thread-entity-get-children parent))
+;;; has parent.
+;;; (setq brothers (wl-thread-entity-get-children parent))
(setq older-brothers (wl-thread-entity-get-older-brothers
entity parent))
(setq younger-brothers (wl-thread-entity-get-younger-brothers
Message is inserted to the summary buffer."
(let ((parent (wl-thread-get-entity parent-msg))
child-entity invisible-top)
-;; Update the thread view...not implemented yet.
-; (when force-insert
-; (if parent
-; (wl-thread-entity-force-open parent))
+;;; Update the thread view...not implemented yet.
+;;; (when force-insert
+;;; (if parent
+;;; (wl-thread-entity-force-open parent))
(if parent
;; insert as children.
(wl-thread-entity-insert-as-children
;; use thread structure.
(wl-thread-entity-get-nearly-older-brother
child-entity parent))) ; return value
-;; (wl-thread-entity-get-number
-;; (wl-thread-entity-get-top-entity parent)))) ; return value;
-;; (setq beg (point))
-;; (wl-thread-goto-bottom-of-sub-thread)
-;; (wl-thread-update-indent-string-region beg (point)))
+;;; (wl-thread-entity-get-number
+;;; (wl-thread-entity-get-top-entity parent)))) ; return value;
+;;; (setq beg (point))
+;;; (wl-thread-goto-bottom-of-sub-thread)
+;;; (wl-thread-update-indent-string-region beg (point)))
;; currently invisible.. update closed line.
(wl-thread-update-children-number invisible-top)
nil))))
(setq overview-entity
(elmo-msgdb-overview-get-entity
(nth 0 entity) wl-summary-buffer-msgdb))
- ;;(wl-delete-all-overlays)
+;;; (wl-delete-all-overlays)
(when overview-entity
(setq summary-line
(wl-summary-overview-create-summary-line
(throw 'done t)))
nil)))
-; (defun wl-thread-goto-bottom-of-sub-thread ()
-; (interactive)
-; (let ((depth (wl-thread-get-depth-of-current-line)))
-; (forward-line 1)
-; (while (and (not (eobp))
-; (> (wl-thread-get-depth-of-current-line)
-; depth))
-; (forward-line 1))
-; (beginning-of-line)))
+;; (defun wl-thread-goto-bottom-of-sub-thread ()
+;; (interactive)
+;; (let ((depth (wl-thread-get-depth-of-current-line)))
+;; (forward-line 1)
+;; (while (and (not (eobp))
+;; (> (wl-thread-get-depth-of-current-line)
+;; depth))
+;; (forward-line 1))
+;; (beginning-of-line)))
(defun wl-thread-goto-bottom-of-sub-thread (&optional msg)
(interactive)
(defun wl-thread-open-close (&optional force-open)
(interactive "P")
(when (eq wl-summary-buffer-view 'thread)
- ;(if (equal wl-thread-top-entity '(nil t nil nil))
- ;(error "There's no thread structure."))
+;;; (if (equal wl-thread-top-entity '(nil t nil nil))
+;;; (error "There's no thread structure"))
(save-excursion
(let ((inhibit-read-only t)
(buffer-read-only nil)
(nreverse list)))
(defun wl-delete-duplicates (list &optional all hack-addresses)
- "Delete duplicate equivalent strings from the list.
-If ALL is t, then if there is more than one occurrence of a string in the list,
+ "Delete duplicate equivalent strings from the LIST.
+If ALL is t, then if there is more than one occurrence of a string in the LIST,
then all occurrences of it are removed instead of just the subsequent ones.
If HACK-ADDRESSES is t, then the strings are considered to be mail addresses,
and only the address part is compared (so that \"Name <foo>\" and \"foo\"
(fset 'wl-read-event-char 'wl-xmas-read-event-char))
(defmacro wl-push (v l)
+ "Insert V at the head of the list stored in L."
(list 'setq l (list 'cons v l)))
(defmacro wl-pop (l)
+ "Remove the head of the list stored in L."
(list 'car (list 'prog1 l (list 'setq l (list 'cdr l)))))
(defun wl-ask-folder (func mes-string)
(wl-push (cdr keve) unread-command-events))))
;(defalias 'wl-make-hash 'elmo-make-hash)
-;(make-obsolete 'wl-make-hash 'elmo-make-hash)
+;;(make-obsolete 'wl-make-hash 'elmo-make-hash)
-;(defalias 'wl-get-hash-val 'elmo-get-hash-val)
-;(make-obsolete 'wl-get-hash-val 'elmo-get-hash-val)
+;;(defalias 'wl-get-hash-val 'elmo-get-hash-val)
+;;(make-obsolete 'wl-get-hash-val 'elmo-get-hash-val)
-;(defalias 'wl-set-hash-val 'elmo-set-hash-val)
-;(make-obsolete 'wl-set-hash-val 'elmo-set-hash-val)
+;;(defalias 'wl-set-hash-val 'elmo-set-hash-val)
+;;(make-obsolete 'wl-set-hash-val 'elmo-set-hash-val)
(defsubst wl-set-string-width (width string)
(elmo-set-work-buf
value)))
(defmacro wl-match-string (pos string)
- "Substring POSth matched string."
+ "Substring POSth matched STRING."
(` (substring (, string) (match-beginning (, pos)) (match-end (, pos)))))
(defmacro wl-match-buffer (pos)
alist)
(defun wl-inverse-alist (keys alist)
- "Inverse ALIST, copying. Return an association list represents
-the inverse mapping of ALIST, from objects to KEYS.
+ "Inverse ALIST, copying.
+Return an association list represents the inverse mapping of ALIST,
+from objects to KEYS.
The objects mapped (cdrs of elements of the ALIST) are shared."
(let (x y tmp result)
(while keys
".wl")))
(defun wl-draft-make-message-id-string ()
+ "Return Message-ID field value."
(concat "<" (wl-unique-id) "@"
(or wl-message-id-domain
(if wl-local-domain
;;; Profile loading.
(defvar wl-load-profile-func 'wl-local-load-profile)
(defun wl-local-load-profile ()
+ "Load `wl-init-file'."
(message "Initializing ...")
(load wl-init-file 'noerror 'nomessage))
(defun wl-load-profile ()
+ "Call `wl-load-profile-func' function."
(funcall wl-load-profile-func))
;;;
(defvar wl-cs-cache wl-cs-local)
(defvar wl-use-semi (module-installed-p 'mime-view) ; If nil, use tm.
- "*Use SEMI or not")
+ "*Use SEMI or not.")
(defcustom wl-from (if (boundp 'user-mail-address)
user-mail-address)
;; Important folders
(defcustom wl-default-folder "%inbox"
- "*Default folder used in wl-summary-goto-folder."
+ "*Default folder used in `wl-summary-goto-folder'."
:type 'string
:group 'wl)
(defcustom wl-draft-folder "+draft"
:group 'wl-draft)
(defcustom wl-auto-insert-x-face t
- "*Insert X-Face: field automatically"
+ "*Insert X-Face: field automatically."
:type 'boolean
:group 'wl-draft)
(defcustom wl-x-face-file "~/.xface"
- "*If file exists and `wl-auto-insert-x-face' is non-nil,
-X-Face field is inserted using its contents."
+ "*X-Face field is inserted using its contents.
+If file exists and `wl-auto-insert-x-face' is non-nil."
:type 'file
:group 'wl-draft)
(defcustom wl-subscribed-mailing-list nil
- "*Subscribed mailing list. You had better set this variable
-if you set wl-insert-mail-followup-to as t."
+ "*Subscribed mailing list.
+You had better set this variable if you set 'wl-insert-mail-followup-to' as t."
:type '(repeat string)
:group 'wl-pref)
(defcustom wl-envelope-from nil
"*Envelope From used in SMTP.
-If nil, wl-from is used."
+If nil, `wl-from' is used."
:type '(choice (const :tag "Same as 'From' field." nil)
string)
:group 'wl)
:group 'wl)
(defcustom wl-smtp-posting-user nil
- "*SMTP authentication user. "
+ "*SMTP authentication user."
:type '(choice (const :tag "none" nil)
string)
:group 'wl)
(defcustom wl-pop-before-smtp-user nil
"*POP3 user name to send mail using POP-before-SMTP.
-If nil, elmo-default-pop3-user is used.
+If nil, `elmo-default-pop3-user' is used.
To use POP-before-SMTP,
(setq wl-draft-send-mail-func 'wl-draft-send-mail-with-pop-before-smtp)"
:type '(choice (const :tag "none" nil)
(defcustom wl-pop-before-smtp-server nil
"*POP3 server for POP-before-SMTP.
-If nil, elmo-default-pop3-server is used."
+If nil, `elmo-default-pop3-server' is used."
:type '(choice (const :tag "none" nil)
string)
:group 'wl)
(defcustom wl-pop-before-smtp-port nil
"*POP3 port for POP-before-SMTP.
-If nil, elmo-default-pop3-port is used."
+If nil, `elmo-default-pop3-port' is used."
:type '(choice (const :tag "none" nil)
integer string)
:group 'wl)
(defcustom wl-pop-before-smtp-stream-type nil
"*Stream type for POP-before-SMTP.
-If nil, elmo-default-pop3-stream-type is used."
+If nil, `elmo-default-pop3-stream-type' is used."
:type 'boolean
:group 'wl)
(defcustom wl-pop-before-smtp-authenticate-type nil
- "*Default Authentication type for POP-before-SMTP
-If nil, elmo-default-pop3-authenticate-type is used."
+ "*Default Authentication type for POP-before-SMTP.
+If nil, `elmo-default-pop3-authenticate-type' is used."
:type '(choice (const :tag "none" nil)
(const :tag "APOP" "apop")
(const :tag "POP3" "user"))
(defcustom wl-nntp-posting-server nil
"*NNTP server name to post news.
-If nil, elmo-default-nntp-server is used."
+If nil, `elmo-default-nntp-server' is used."
:type '(choice (const :tag "none" nil)
string)
:group 'wl)
(defcustom wl-nntp-posting-user nil
"*NNTP user name to post news for authinfo.
-If nil, elmo-default-nntp-user is used.
+If nil, `elmo-default-nntp-user' is used.
If nil, don't authenticate."
:type '(choice (const :tag "none" nil)
string)
:group 'wl)
(defcustom wl-nntp-posting-port nil
"*NNTP port to post news.
-If nil, elmo-default-nntp-port is used."
+If nil, `elmo-default-nntp-port' is used."
:type '(choice (const :tag "none" nil)
integer string)
:group 'wl)
(defcustom wl-nntp-posting-stream-type nil
"*Stream type for posting Netnews.
-If nil, elmo-default-nntp-stream-type is used."
+If nil, `elmo-default-nntp-stream-type' is used."
:type 'boolean
:group 'wl)
;;;; Hooks
(defvar wl-folder-mode-hook nil
- "A hook called when wanderlust folder mode is started. This hook may
-contain the functions `wl-folder-init-icons' and `wl-setup-folder' for
-reasons of system internal to accord facilities for the Emacs variants.")
+ "A hook called when wanderlust folder mode is started.
+This hook may contain the functions `wl-folder-init-icons' and
+`wl-setup-folder' for reasons of system internal to accord facilities
+for the Emacs variants.")
(defvar wl-summary-toggle-disp-on-hook nil
"A hook called when message is toggled.")
(defvar wl-summary-toggle-disp-off-hook nil
(defvar wl-summary-toggle-disp-folder-message-resumed-hook nil
"A hook called when message window is resumed when folder is toggled.")
(defvar wl-summary-mode-hook nil
- "A hook called when summary mode is started. This hook may contain
-the function `wl-setup-summary' for reasons of system internal to
-accord facilities for the Emacs variants.")
+ "A hook called when summary mode is started.
+This hook may contain the function `wl-setup-summary' for reasons of
+system internal to accord facilities for the Emacs variants.")
(defvar wl-summary-prepared-pre-hook nil
"A hook called before the summary buffer has been generated.")
(defvar wl-score-mode-hook nil
"A hook called when score mode is started.")
(defvar wl-make-plugged-hook nil
- "A hook called when make plugged alist. This hook may contain the
-functions `wl-plugged-init-icons' and `wl-biff-init-icons' for reasons
-of system internal to accord facilities for the Emacs variants.")
+ "A hook called when make plugged alist.
+This hook may contain the functions `wl-plugged-init-icons' and
+`wl-biff-init-icons' for reasons of system internal to accord
+facilities for the Emacs variants.")
(defvar wl-plugged-exit-hook nil
"A hook called when exit plugged mode.")
:group 'wl-draft)
(defcustom wl-draft-resume-folder-window t
- "*Resume folder window in wl-draft-hide"
+ "*Resume folder window in `wl-draft-hide'."
:type 'boolean
:group 'wl-draft)
:group 'wl-draft)
(defcustom wl-draft-remove-group-list-contents t
- "*If non-nil, remove group list contents in `wl-draft-send-mail-with-smtp'"
+ "*If non-nil, remove group list contents in `wl-draft-send-mail-with-smtp'."
:type 'boolean
:group 'wl-draft)
:group 'wl)
(defcustom wl-folders-file "~/.folders"
- "*Folders file"
+ "*Folders file."
:type 'file
:group 'wl)
(defcustom wl-address-file "~/.addresses"
- "*Addresses file"
+ "*Addresses file."
:type 'file
:group 'wl)
(defcustom wl-alias-file "~/.im/Aliases"
- "*Alias file for completion"
+ "*Alias file for completion."
:type 'file
:group 'wl)
:group 'wl-pref)
(defcustom wl-summary-rescore-partial-threshold 200
- "*Summary is not scored entirely if there are messages more than this value
-in sync-all or rescan."
+ "*Summary is not scored entirely if there are messages more than this value.
+In sync-all or rescan."
:type 'integer
:group 'wl-score)
(defcustom wl-score-files-dir (concat elmo-msgdb-dir elmo-path-sep)
- "*Name of the directory where score files will be stored (default \"~/.elmo\")."
+ "*Name of the directory where score files will be stored.
+(default \"~/.elmo\")."
:type 'directory
:group 'wl)
:group 'wl-pref)
(defcustom wl-draft-reply-buffer-style 'split
- "'split or 'full"
+ "'split or 'full."
:type '(radio (const split)
(const full))
:group 'wl-draft)
(defcustom wl-draft-queue-save-variables
'(wl-envelope-from wl-from
wl-smtp-posting-server wl-smtp-posting-user wl-smtp-posting-port
- wl-smtp-authenticate-type wl-smtp-connection-type
+ wl-smtp-authenticate-type wl-smtp-connection-type
wl-pop-before-smtp-server wl-pop-before-smtp-user wl-pop-before-smtp-port
wl-pop-before-smtp-stream-type wl-pop-before-smtp-authenticate-type
wl-nntp-posting-server wl-nntp-posting-server
:group 'wl-draft)
(defcustom wl-summary-default-number-column 5
- "number of columns in summary buffer."
+ "Number of columns in summary buffer."
:type 'integer
:group 'wl-summary)
:group 'wl-highlight)
(defcustom wl-summary-highlight-partial-threshold 1000
- "Summary is not highlighted entirely
-if there are lines more than this value."
+ "Summary is not highlighted entirely if there are lines more than this value."
:type 'integer
:group 'wl-summary
:group 'wl-highlight)
(defcustom wl-summary-partial-highlight-above-lines 30
- "If Summary has lines more than wl-summary-highlight-partial-threshold,
+ "If Summary has lines more than `wl-summary-highlight-partial-threshold',
Summary lines are highlighted partialy above current position."
:type 'integer
:group 'wl-summary
:type 'file
:group 'wl-summary)
(defcustom wl-summary-view-file ".wl-summary-view"
- "*current summary view."
+ "*Current summary view."
:type 'file
:group 'wl-summary)
(defcustom wl-thread-top-file ".wl-thread-top"
- "*current thread top entity... obsolete."
+ "*Current thread top entity... obsolete."
:type 'file
:group 'wl-summary)
(defcustom wl-thread-entity-file ".wl-thread-entity"
- "*thread entities."
+ "*Thread entities."
:type 'file
:group 'wl-summary)
(defcustom wl-thread-entity-list-file ".wl-thread-entity-list"
- "*thread top entity list."
+ "*Thread top entity list."
:type 'file
:group 'wl-summary)
(defcustom wl-use-folder-petname
'(modeline)
- "*List of situation using folder petname. Allowed situations are:
-
+ "*List of situation using folder petname.
+Allowed situations are:
modeline : displayed on modeline.
ask-folder : displayed on minibuffer when ask folder.
read-folder : can used for completion at `wl-summary-read-folder'."
:group 'wl-pref)
(defcustom wl-folder-petname-alist nil
- "A list of (realname . petname)"
+ "A list of (realname . petname)."
:type '(repeat (cons (string :tag "Realname") (string :tag "Petname")))
:group 'wl-folder)
:group 'wl-pref)
(defcustom wl-message-window-size '(1 . 4)
- "*Size of summary and message window. cons cell of (Summary : Message)."
+ "*Size of summary and message window. cons cell of (Summary : Message)."
:type '(cons integer integer)
:group 'wl-pref)
(defcustom wl-message-sort-field-list '("Return-Path" "Received" "^To" "^Cc"
"Newsgroups" "Subject" "^From")
- "*Sort order of header fields. Each elements are regexp of field name.
+ "*Sort order of header fields. Each elements are regexp of field name.
(Not valid on tm.)"
:type '(repeat (string :tag "Field Regexp"))
:group 'wl-pref)
:group 'wl-pref)
(defcustom wl-summary-recenter t
- "*Recenter on redisplay"
+ "*Recenter on redisplay."
:type 'boolean
:group 'wl-summary
:group 'wl-pref)
(defcustom wl-highlight-background-mode (if (boundp 'hilit-background-mode)
(or hilit-background-mode 'dark)
'dark)
- "*Background mode of highlight (for Old Emacsen). 'dark or 'light"
+ "*Background mode of highlight (for Old Emacsen). 'dark or 'light."
:type '(radio (const dark)
(const light))
:group 'wl-highlight)
(defcustom wl-rejected-letter-start
"^[\t ]*-+[\t ]+\\(original\\|\\(\\(the \\)?unsent\\)\\) message\\( follows\\)?[\t ]+-+[\t ]*$"
"Regexp specifying the beginning of the wrapper around a returned letter.
- This wrapper is generated by the mail system when rejecting a letter."
+This wrapper is generated by the mail system when rejecting a letter."
:type 'regexp
:group 'wl-draft)
(defcustom wl-summary-incorporate-marks
(list wl-summary-new-mark
wl-summary-unread-uncached-mark)
- "Persistent marks to prefetch at `wl-summary-incorporate'"
+ "Persistent marks to prefetch at `wl-summary-incorporate'."
:type '(repeat (string :tag "Mark"))
:group 'wl-summary)
(defcustom wl-biff-check-folder-list nil
"All folders that match this list are automatically checked
-every intervals specified by wl-biff-check-interval. "
+every intervals specified by wl-biff-check-interval."
:type '(repeat (regexp :tag "Folder Regexp"))
:group 'wl-highlight)
(defcustom wl-auto-select-next nil
"*If non-nil, offer to go to the next folder from the end of the previous.
If the value is the symbol `unread', go to the next folder
-that no unread message exists. If the value is the symbol `skip-no-unread',
+that no unread message exists. If the value is the symbol `skip-no-unread',
skip the folder that no unread message exists.
See also variable `wl-summary-next-no-unread-command'."
("^-relcom\\." . koi8-r)
("^-tw\\." . big5)
("^-han\\." . euc-kr))
- "Charset alist. If no match, wl-mime-charset is used."
+ "Charset alist. If no match, `wl-mime-charset' is used."
:type '(repeat (cons (regexp :tag "Folder Regexp") (symbol :tag "Charset")))
:group 'wl-summary
:group 'wl-pref)
("^-relcom\\." . "en")
("^-tw\\." . "en")
("^-han\\." . "en"))
- "Weekday name lang alist. If no match, wl-summary-weekday-name-lang
-is used.
+ "Weekday name lang alist.
+If no match, `wl-summary-weekday-name-lang' is used.
e.x.
'((\"xemacs-beta$\" . \"en\")
(\"^-fj\" . \"ja\"))"
(list (cons (concat "^" (regexp-quote wl-draft-folder) "$\\|^"
(regexp-quote wl-queue-folder) "$")
"all"))
- "*Default sync range alist. If no matches, `wl-default-sync-range' is used."
+ "*Default sync range alist. If no matches, `wl-default-sync-range' is used."
:type '(repeat (cons (regexp :tag "Folder Regexp")
(choice (const "update")
(const "all")
:group 'wl-summary)
(defcustom wl-summary-search-via-nntp 'confirm
- "*Non-nil, search message via nntp after `wl-summary-jump-to-msg-by-message-id'. If the value is 'confirm, confirm before search."
+ "*Non-nil, search message via nntp after `wl-summary-jump-to-msg-by-message-id'. If the value is 'confirm, confirm before search."
:type 'boolean
:group 'wl-summary)
(defcustom wl-refile-policy-alist '(("^[-=']" . copy)
(".*" . move))
- "*List of refile policy. Each element is (FOLDER-REGEXP . POLICY).
+ "*List of refile policy. Each element is (FOLDER-REGEXP . POLICY).
POLICY is copy or move."
:type '(repeat (cons (regexp :tag "Folder Regexp")
(choice (const copy)
The policy is one of the followings:
'remove : remove messsage.
-'trash : refile wl-trash-folder.
+'trash : refile `wl-trash-folder'.
string : refile string folder.
function : call function.
;; highilght about draft and message
(defcustom wl-highlight-body-too t
- "*In addition to header, highlight the body too. if non nil."
+ "*In addition to header, highlight the body too. if non nil."
:type 'boolean
:group 'wl-highlight)
(defcustom wl-highlight-highlight-citation-too nil
"*Whether the whole citation line should go in the
- `wl-highlight-citation-face' face.
+`wl-highlight-citation-face' face.
If nil, the text matched by `wl-highlight-citation-prefix-regexp' is in the
default face, and the remainder of the line is in the
wl-highlight-message-cited-text face."
"*If the message header is larger than this many chars, don't highlight it.
If this is nil, all headers will be highlighted."
:type 'integer
- :group 'wl-highlight)
+ :group 'wl-highlight)
(defcustom wl-highlight-max-message-size 10000
"*If the message body is larger than this many chars, don't highlight it.
Verification will be done from the end of the buffer.
No need to specify \"^-- $\" in this list,
because it is verified by default.
-This variable can also be a regex. "
+This variable can also be a regex."
:type '(repeat regexp)
:group 'wl-highlight)
:type 'boolean
:group 'wl-highlight)
(defcustom wl-highlight-folder-by-numbers t
- "Highlight folder lines by numbers. If it is a number, only numbers
-will be highlighted."
+ "Highlight folder lines by numbers.
+If it is a number, only numbers will be highlighted."
:type '(choice (const :tag "whole line" t)
(const :tag "only numbers" 1)
(const :tag "don't highlight" nil))
'xpm 'xbm))
(and (module-installed-p 'bitmap)
'xbm))
- "If non-nil, show graphic logo in the startup screen. You can set it to
-a symbol `xbm' to limit the image format to XBM even if XPM can be shown."
+ "If non-nil, show graphic logo in the startup screen.
+You can set it to a symbol `xbm' to limit the image format to
+XBM even if XPM can be shown."
:type '(radio (const :tag "OFF" nil)
(const :tag "XBM (possibly BITMAP-MULE)" xbm)
(sexp :format "ON (any format)" :value t))
(defvar wl-thread-indent-level 1
"*Indent level for thread.")
(defvar wl-thread-have-younger-brother-str "\e$B(2\e(B"
- "*A string for thread branch line. It should contain one character.")
+ "*A string for thread branch line. It should contain one character.")
(defvar wl-thread-youngest-child-str "\e$B(1\e(B"
- "*A string for thread branch line. It should contain one character.")
+ "*A string for thread branch line. It should contain one character.")
(defvar wl-thread-vertical-str "\e$B(-\e(B"
- "*A string for thread branch line. It should contain one character.")
+ "*A string for thread branch line. It should contain one character.")
(defvar wl-thread-horizontal-str "\e$B(,\e(B"
- "*A string for thread branch line. It should contain one character.")
+ "*A string for thread branch line. It should contain one character.")
(defvar wl-thread-space-str "\e$B!!\e(B"
- "*A string for thread branch line. It should contain one character.")
+ "*A string for thread branch line. It should contain one character.")
(defvar wl-highlight-thread-indent-string-regexp "[^[<]*"
"* A regexp string for thread indent...for highlight.")
(defvar wl-biff-nomail-icon "no-letter.xpm"
"*Icon file for no mail existed state.")
(defvar wl-prog-uudecode "uudecode"
- "*uudecode program name")
+ "*uudecode program name.")
(defvar wl-prog-uudecode-arg '("-p") ;; outout is stdout.
- "*arguments for uudecode program")
+ "*Arguments for uudecode program.")
(defvar wl-prog-uudecode-no-stdout-option nil
"*If non-nil, uudecode program don't have option for output to stdout.")
wl-folder-prev-entity t "Previous Folder"]
[wl-folder-check-current-entity
wl-folder-check-current-entity t "Check Current Folder"]
- ;;[wl-draft
- ;; wl-draft t "Write a New Message"]
+;;; [wl-draft
+;;; wl-draft t "Write a New Message"]
[wl-folder-sync-current-entity
wl-folder-sync-current-entity t "Sync Current Folder"]
[wl-draft
projects / elisp / wanderlust.git / commitdiff