Tabify and remove verbose spaces.
Fixed typo in comment.
* wl.el (wl-exit): Changed confirm message.
2001-11-23 TAKAHASHI Kaoru <kaoru@kaisei.org>
+ * wl.el (wl-exit): Changed confirm message.
+
* wl.el (wl-init): (require 'mime-setup) move to toplevel.
* wl-draft.el (wl-draft): Remove verbose `featurep'.
-;;; wl-acap.el -- ACAP support for Wanderlust.
+;;; wl-acap.el --- ACAP support for Wanderlust.
;; Copyright (C) 2001 Yuuichi Teranishi <teranisi@gohome.org>
-;;; wl-address.el -- Tiny address management for Wanderlust.
+;;; wl-address.el --- Tiny address management for Wanderlust.
;; Copyright (C) 1998,1999,2000 Yuuichi Teranishi <teranisi@gohome.org>
;; Copyright (C) 1998,1999,2000 Shun-ichi GOTO <gotoh@taiyo.co.jp>
;;
;;; Commentary:
-;;
+;;
;;; Code:
-;;
+;;
(require 'wl-util)
(require 'wl-vars)
values nil)
(setq values (cdr values)))))
ret))
-
+
(defun wl-ldap-get-value-list (type entry)
""
(cdr (assoc type entry)))
(if (null cl)
nil
(setq completion
- (let ((completion-ignore-case t))
- (try-completion pattern cl)))
+ (let ((completion-ignore-case t))
+ (try-completion pattern cl)))
(cond ((eq completion t)
(let ((alias (assoc pattern cl)))
(if alias
(when (< nest-count 5)
(let (expn-str new-expn-str expn new-expn(n 0) (expanded nil))
(while (setq expn-str (cdr (nth n alist)))
- (setq new-expn-str nil)
- (while (string-match "^[ \t]*\\([^,]+\\)" expn-str)
- (setq expn (elmo-match-string 1 expn-str))
+ (setq new-expn-str nil)
+ (while (string-match "^[ \t]*\\([^,]+\\)" expn-str)
+ (setq expn (elmo-match-string 1 expn-str))
(setq expn-str (wl-string-delete-match expn-str 0))
- (if (string-match "^[ \t,]+" expn-str)
+ (if (string-match "^[ \t,]+" expn-str)
(setq expn-str (wl-string-delete-match expn-str 0)))
- (if (string-match "[ \t,]+$" expn)
+ (if (string-match "[ \t,]+$" expn)
(setq expn (wl-string-delete-match expn 0)))
- (setq new-expn (cdr (assoc expn alist)))
- (if new-expn
- (setq expanded t))
- (setq new-expn-str (concat new-expn-str (and new-expn-str ", ")
- (or new-expn expn))))
- (when new-expn-str
- (setcdr (nth n alist) new-expn-str))
- (setq n (1+ n)))
+ (setq new-expn (cdr (assoc expn alist)))
+ (if new-expn
+ (setq expanded t))
+ (setq new-expn-str (concat new-expn-str (and new-expn-str ", ")
+ (or new-expn expn))))
+ (when new-expn-str
+ (setcdr (nth n alist) new-expn-str))
+ (setq n (1+ n)))
(and expanded
- (wl-address-expand-aliases alist (1+ nest-count))))))
+ (wl-address-expand-aliases alist (1+ nest-count))))))
(defun wl-address-make-alist-from-alias-file (file)
(elmo-set-work-buf
(while (re-search-forward ",$" nil t)
(end-of-line)
(forward-char 1)
- (delete-backward-char 1))
+ (delete-backward-char 1))
(goto-char (point-min))
(while (re-search-forward "^\\([^#;\n][^:]+\\):[ \t]*\\(.*\\)$" nil t)
(setq alias (wl-match-buffer 1)
e.g. \"m-sakura@ccs.mt.nec.co.jp (Mine Sakurai)\"
-> \"m-sakura@ccs.mt.nec.co.jp\"."
(cond ((string-match ".*<\\([^>]*\\)>" str) ; .* to extract last <>
- (wl-match-string 1 str))
- ((string-match "\\([^ \t\n]*@[^ \t\n]*\\)" str)
(wl-match-string 1 str))
- (t str)))
+ ((string-match "\\([^ \t\n]*@[^ \t\n]*\\)" str)
+ (wl-match-string 1 str))
+ (t str)))
(defsubst wl-address-header-extract-realname (str)
"Extracts a real name from STR and return it.
e.g. \"Mr. bar <hoge@foo.com>\"
-> \"Mr. bar\"."
(cond ((string-match "\\(.*[^ \t]\\)[ \t]*<[^>]*>" str)
- (wl-match-string 1 str))
- (t "")))
+ (wl-match-string 1 str))
+ (t "")))
(defmacro wl-address-concat-token (string token)
(` (cond
-;;; wl-addrmgr.el -- Address manager for Wanderlust.
+;;; wl-addrmgr.el --- Address manager for Wanderlust.
;; Copyright (C) 2001 Kitamoto Tsuyoshi <tsuyoshi.kitamoto@city.sapporo.jp>
;; Copyright (C) 2001 Yuuichi Teranishi <teranisi@gohome.org>
-;;; wl-demo.el -- Opening demo on Wanderlust.
+;;; wl-demo.el --- Opening demo on Wanderlust.
;; Copyright (C) 1998,1999,2000,2001 Yuuichi Teranishi <teranisi@gohome.org>
;; Copyright (C) 2000,2001 Katsumi Yamaoka <yamaoka@jpl.org>
-;;; wl-dnd.el -- dragdrop support on Wanderlust.
+;;; wl-dnd.el --- dragdrop support on Wanderlust.
;; Copyright (C) 1998,1999,2000 Yuuichi Teranishi <teranisi@gohome.org>
;;
;;; Commentary:
-;;
+;;
;;; Code:
-;;
+;;
(static-cond
((featurep 'offix)
(require 'product)
(product-provide (provide 'wl-dnd) (require 'wl-version))
-
+
;;; wl-dnd.el ends here
-;;; wl-draft.el -- Message draft mode for Wanderlust.
+;;; wl-draft.el --- Message draft mode for Wanderlust.
;; Copyright (C) 1998,1999,2000 Yuuichi Teranishi <teranisi@gohome.org>
;; Copyright (C) 1998,1999,2000 Masahiro MURATA <muse@ba2.so-net.ne.jp>
(defvar wl-draft-parent-folder nil)
(defvar wl-draft-config-sub-func-alist
- '((body . wl-draft-config-sub-body)
- (top . wl-draft-config-sub-top)
- (bottom . wl-draft-config-sub-bottom)
- (header . wl-draft-config-sub-header)
- (header-top . wl-draft-config-sub-header-top)
- (header-bottom . wl-draft-config-sub-header)
- (part-top . wl-draft-config-sub-part-top)
- (part-bottom . wl-draft-config-sub-part-bottom)
- (body-file . wl-draft-config-sub-body-file)
- (top-file . wl-draft-config-sub-top-file)
- (bottom-file . wl-draft-config-sub-bottom-file)
- (header-file . wl-draft-config-sub-header-file)
- (template . wl-draft-config-sub-template)
- (x-face . wl-draft-config-sub-x-face)))
+ '((body . wl-draft-config-sub-body)
+ (top . wl-draft-config-sub-top)
+ (bottom . wl-draft-config-sub-bottom)
+ (header . wl-draft-config-sub-header)
+ (header-top . wl-draft-config-sub-header-top)
+ (header-bottom . wl-draft-config-sub-header)
+ (part-top . wl-draft-config-sub-part-top)
+ (part-bottom . wl-draft-config-sub-part-bottom)
+ (body-file . wl-draft-config-sub-body-file)
+ (top-file . wl-draft-config-sub-top-file)
+ (bottom-file . wl-draft-config-sub-bottom-file)
+ (header-file . wl-draft-config-sub-header-file)
+ (template . wl-draft-config-sub-template)
+ (x-face . wl-draft-config-sub-x-face)))
(make-variable-buffer-local 'wl-draft-buffer-file-name)
(make-variable-buffer-local 'wl-draft-buffer-cur-summary-buffer)
"Get address list suitable for smtp RCPT TO:<address>.
Group list content is removed if `wl-draft-remove-group-list-contents' is
non-nil."
- (let ((fields '("to" "cc" "bcc"))
+ (let ((fields '("to" "cc" "bcc"))
(resent-fields '("resent-to" "resent-cc" "resent-bcc"))
(case-fold-search t)
addrs recipients)
-;;; wl-e21.el -- Wanderlust modules for Emacs 21.
+;;; wl-e21.el --- Wanderlust modules for Emacs 21.
;; Copyright (C) 2000,2001 Katsumi Yamaoka <yamaoka@jpl.org>
;; Copyright (C) 2000,2001 Yuuichi Teranishi <teranisi@gohome.org>
-;;; wl-expire.el -- Message expire modules for Wanderlust.
+;;; wl-expire.el --- Message expire modules for Wanderlust.
;; Copyright (C) 1998,1999,2000 Masahiro MURATA <muse@ba2.so-net.ne.jp>
;; Copyright (C) 1998,1999,2000 Yuuichi Teranishi <teranisi@gohome.org>
;;
;;; Commentary:
-;;
+;;
(require 'wl-summary)
(require 'wl-thread)
-;;; wl-fldmgr.el -- Folder manager for Wanderlust.
+;;; wl-fldmgr.el --- Folder manager for Wanderlust.
;; Copyright 1998,1999,2000 Masahiro MURATA <muse@ba2.so-net.ne.jp>
;; Yuuichi Teranishi <teranisi@gohome.org>
;;
;;; Commentary:
-;;
+;;
;;; Code:
-;;
+;;
(require 'wl-folder)
(require 'wl-summary)
(setq unsubscribes (delete (elmo-string (car new2))
unsubscribes)))
(setq new2 (cdr new2)))
- (setcdr (cddr entity) (list unsubscribes))
+ (setcdr (cddr entity) (list unsubscribes))
(wl-fldmgr-add-modified-access-list group))
(if (not key-path);; insert group top
(if (cddr entity)
;;; (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
- indent
- group-entity t)
+ (wl-folder-insert-entity
+ indent
+ group-entity t)
(setq wl-fldmgr-modified t)
(set-buffer-modified-p nil)))))))))
(t ;; folder
(type 'group)
group tmp indent path new prev-id flist diffs)
(setq tmp (wl-fldmgr-get-path-from-buffer t))
- (setq path (car tmp))
+ (setq path (car tmp))
(setq indent (wl-fldmgr-make-indent (nth 1 tmp)))
(setq prev-id (nth 3 tmp))
(if (eq (cdr (nth 2 tmp)) 'access)
-;;; wl-folder.el -- Folder mode for Wanderlust.
+;;; wl-folder.el --- Folder mode for Wanderlust.
;; Copyright (C) 1998,1999,2000 Yuuichi Teranishi <teranisi@gohome.org>
;; Copyright (C) 1998,1999,2000 Masahiro MURATA <muse@ba2.so-net.ne.jp>
(defun wl-folder-persistent-p (folder)
(or (and (wl-folder-search-entity-by-name folder wl-folder-entity
'folder)
- t) ; on Folder mode.
+ t) ; on Folder mode.
(catch 'found
(let ((li wl-save-folder-list))
(while li
(setq ret-val
(wl-folder-add-folder-info
ret-val
- (wl-folder-check-one-entity (elmo-folder-name-internal
+ (wl-folder-check-one-entity (elmo-folder-name-internal
folder))))
;;(sit-for 0)
))
(goto-char (point-min))
(while (wl-folder-buffer-search-entity name)
(wl-folder-update-line value))))))))
-
+
(defun wl-folder-update-unread (folder unread)
; (save-window-excursion
(let ((buf (get-buffer wl-folder-buffer-name))
(wl-summary-get-sync-range
(wl-folder-get-elmo-folder fld-name))
nil sticky t)))
-
+
(defun wl-folder-suspend ()
(interactive)
(run-hooks 'wl-folder-suspend-hook)
-;;; wl-highlight.el -- Hilight modules for Wanderlust.
+;;; wl-highlight.el --- Hilight modules for Wanderlust.
;; Copyright (C) 1998,1999,2000 Yuuichi Teranishi <teranisi@gohome.org>
(put-text-property bol eol 'face fsymbol)
(when dest
(put-text-property (next-single-property-change
- (next-single-property-change
+ (next-single-property-change
bol 'wl-summary-destination
nil eol)
'wl-summary-destination nil eol)
-;;; wl-message.el -- Message displaying modules for Wanderlust.
+;;; wl-message.el --- Message displaying modules for Wanderlust.
;; Copyright (C) 1998,1999,2000 Yuuichi Teranishi <teranisi@gohome.org>
;;
;;; Commentary:
-;;
+;;
;;; Code:
-;;
+;;
(require 'wl-vars)
(require 'wl-highlight)
(if window
(select-window window)
(when wl-fixed-window-configuration
- (delete-other-windows)
- (and wl-stay-folder-window
- (wl-summary-toggle-disp-folder)))
+ (delete-other-windows)
+ (and wl-stay-folder-window
+ (wl-summary-toggle-disp-folder)))
;; There's no buffer window. Search for message window and snatch it.
(if (setq window (wl-message-buffer-window))
(select-window window)
(setq arg (if arg (prefix-numeric-value arg) 0))
(save-excursion
(condition-case ()
- (forward-page -1) ; Beginning of current page.
+ (forward-page -1) ; Beginning of current page.
(beginning-of-buffer
(goto-char (point-min))))
(forward-char 1) ; for compatibility with emacs-19.28 and emacs-19.29
;; XEmacs 21.2.20 and later.
(let (window-pixel-scroll-increment)
(scroll-up lines))
- (scroll-up lines))
+ (scroll-up lines))
(end-of-buffer
(goto-char (point-max))))
(setq bottom nil))
(let ((mail-reply-buffer buffer))
(wl-draft-yank-from-mail-reply-buffer nil)))
-;;
+;;
(defun wl-message-mode ()
"A major mode for message displaying."
(wl-message-select-buffer wl-message-buffer))
(wl-summary-goto-folder-subr wl-message-buffer-cur-folder 'no-sync
nil nil t)
- ; no summary-buf
+ ; no summary-buf
(let ((sum-buf (current-buffer)))
(wl-message-select-buffer wl-message-buffer)
(setq wl-message-buffer-cur-summary-buffer sum-buf)))))
(match-end (nth 1 entry))
(nth 2 entry)
(match-string (nth 3 entry))))))))))
-
+
(defun wl-message-add-buttons-to-header (start end)
(save-excursion
(save-restriction
(let ((elmo-message-fetch-threshold wl-fetch-confirm-threshold)
(default-mime-charset wl-mime-charset))
(setq wl-message-buffer-all-header-flag (eq flag 'all-header))
- (prog1
+ (prog1
(if (eq flag 'as-is)
(let (wl-highlight-x-face-function)
(prog1 (elmo-mime-display-as-is folder number
-;;; wl-mime.el -- SEMI implementations of MIME processing on Wanderlust.
+;;; wl-mime.el --- SEMI implementations of MIME processing on Wanderlust.
;; Copyright (C) 1998,1999,2000 Yuuichi Teranishi <teranisi@gohome.org>
;;
;;; Commentary:
-;;
+;;
;;; Code:
-;;
+;;
(require 'mime-view)
(require 'mime-edit)
(defun wl-message-request-partial (folder number)
(elmo-set-work-buf
(elmo-message-fetch (wl-folder-get-elmo-folder folder)
- number
+ number
(elmo-make-fetch-strategy 'entire)
nil
(current-buffer)
'unread)
(mime-parse-buffer nil)))
-(defalias 'wl-message-read 'mime-preview-scroll-up-entity)
-(defalias 'wl-message-next-content 'mime-preview-move-to-next)
-(defalias 'wl-message-prev-content 'mime-preview-move-to-previous)
-(defalias 'wl-message-play-content 'mime-preview-play-current-entity)
-(defalias 'wl-message-extract-content 'mime-preview-extract-current-entity)
-(defalias 'wl-message-quit 'mime-preview-quit)
+(defalias 'wl-message-read 'mime-preview-scroll-up-entity)
+(defalias 'wl-message-next-content 'mime-preview-move-to-next)
+(defalias 'wl-message-prev-content 'mime-preview-move-to-previous)
+(defalias 'wl-message-play-content 'mime-preview-play-current-entity)
+(defalias 'wl-message-extract-content 'mime-preview-extract-current-entity)
+(defalias 'wl-message-quit 'mime-preview-quit)
(defalias 'wl-message-button-dispatcher-internal
'mime-button-dispatcher)
-;;; wl-mule.el -- Wanderlust modules for Mule compatible Emacsen.
-;; (Mule2.3@19.28, Mule2.3@19.34, Emacs 20.x)
+;;; wl-mule.el --- Wanderlust modules for Mule compatible Emacsen.
;; Copyright (C) 1998,1999,2000 Yuuichi Teranishi <teranisi@gohome.org>
;;
;;; Commentary:
-;;
+;; For Mule2.3@19.34, Emacs 20.x
;;; Code:
;;
-;;; wl-refile.el -- Refile modules for Wanderlust.
+;;; wl-refile.el --- Refile modules for Wanderlust.
;; Copyright (C) 1998,1999,2000 Yuuichi Teranishi <teranisi@gohome.org>
;;
;;; Commentary:
-;;
+;;
;;; Code:
-;;
+;;
(require 'wl-vars)
(require 'wl-util)
(wl-refile-subject-learn entity dst)))
(when key
(if (setq hit (assoc key wl-refile-alist))
- (setq wl-refile-alist (delq hit wl-refile-alist)))
+ (setq wl-refile-alist (delq hit wl-refile-alist)))
(setq wl-refile-alist (cons (cons key dst)
wl-refile-alist)))))
(if (string-match "\\([^@]+\\)@[^@]+" address)
(wl-match-string 1 address)
address))
-
+
(defun wl-refile-guess-by-from (entity)
(let ((from
(downcase (wl-address-header-extract-address
(or (cdr (assoc from wl-refile-alist))
(format "%s/%s" wl-refile-default-from-folder
(wl-refile-get-account-part-from-address from)))))
-
+
(defun wl-refile-guess-by-msgid (entity)
(cdr (assoc (elmo-msgdb-overview-entity-get-references entity)
wl-refile-msgid-alist)))
-;;; wl-score.el -- Scoring in Wanderlust.
+;;; wl-score.el --- Scoring in Wanderlust.
;; Copyright (C) 1998,1999,2000 Masahiro MURATA <muse@ba2.so-net.ne.jp>
;; Copyright (C) 1998,1999,2000 Yuuichi Teranishi <teranisi@gohome.org>
;; Original codes are gnus-score.el and score-mode.el
;;; Code:
-;;
+;;
(require 'wl-vars)
-;;; wl-summary.el -- Summary mode for Wanderlust.
+;;; wl-summary.el --- Summary mode for Wanderlust.
;; Copyright (C) 1998,1999,2000 Yuuichi Teranishi <teranisi@gohome.org>
;; Copyright (C) 1998,1999,2000 Masahiro MURATA <muse@ba2.so-net.ne.jp>
(easy-menu-add wl-summary-mode-menu)
(when wl-summary-lazy-highlight
(make-local-variable 'window-scroll-functions)
- (add-hook 'window-scroll-functions 'wl-highlight-summary-window))
+ (add-hook 'window-scroll-functions 'wl-highlight-summary-window))
;; This hook may contain the function `wl-setup-summary' for reasons
;; of system internal to accord facilities for the Emacs variants.
(run-hooks 'wl-summary-mode-hook))
(delete-region (match-beginning 2) (match-end 2))
(goto-char (match-beginning 2))
(insert new-mark)
- (elmo-file-cache-delete
+ (elmo-file-cache-delete
(elmo-file-cache-get-path
(elmo-message-field wl-summary-buffer-elmo-folder
number
(if (elmo-file-cache-exists-p msgid)
(if (or
(string= mark wl-summary-unread-uncached-mark) ; U -> !
- (string= mark wl-summary-new-mark) ; N -> !
+ (string= mark wl-summary-new-mark) ; N -> !
)
(setq set-mark wl-summary-unread-cached-mark)
(if (string= mark wl-summary-read-uncached-mark) ; u -> ' '
(while mark-alist
(setq entity (car mark-alist))
(if (setq msg-num (car (rassoc (car entity) number-alist)))
- (progn
+ (progn
;;; (goto-char (point-min))
(if (re-search-forward (format "^ *%s \\( \\)" msg-num) nil t)
(progn
wl-summary-unread-uncached-mark
wl-summary-new-mark)
mark-alist (elmo-msgdb-get-mark-alist (wl-summary-buffer-msgdb))
- num-ma (length mark-alist)
+ num-ma (length mark-alist)
importants (elmo-folder-list-importants
wl-summary-buffer-elmo-folder
wl-summary-important-mark)
(buffer-read-only nil)
(elmo-folder-update-threshold wl-summary-update-confirm-threshold)
gc-message
- overview number-alist mark-alist
+ overview number-alist mark-alist
curp num i new-msgdb
append-list delete-list crossed
update-thread update-top-list
(if elmo-use-database
(elmo-database-close))
(run-hooks 'wl-summary-sync-updated-hook)
- (setq mes
+ (setq mes
(if (and (eq (length delete-list) 0)
(eq num 0))
(format
(wl-delete-all-overlays)
(set-buffer-modified-p nil)
(if mes (message "%s" mes)))))
-
+
(defun wl-summary-set-score-mark (mark)
(save-excursion
(beginning-of-line)
(set-buffer-modified-p nil)
(goto-char (point-min))
(if (wl-summary-cursor-down t)
- (let ((unreadp (wl-summary-next-message
+ (let ((unreadp (wl-summary-next-message
(wl-summary-message-number)
'down t)))
(cond ((and wl-auto-select-first
;; Is founded entity myself or children?
(not (string=
(elmo-msgdb-overview-entity-get-id entity)
- (elmo-msgdb-overview-entity-get-id
+ (elmo-msgdb-overview-entity-get-id
(car found-entity))))
(with-current-buffer summary-buf
(not (wl-thread-descendant-p
-;;; wl-template.el -- Draft template feature for Wanderlust.
+;;; wl-template.el --- Draft template feature for Wanderlust.
;; Copyright (C) 1998,1999,2000 Masahiro MURATA <muse@ba2.so-net.ne.jp>
;; Copyright (C) 1998,1999,2000 Yuuichi Teranishi <teranisi@gohome.org>
;;; Commentary:
;;; Code:
-;;
+;;
;; Variables
\\{wl-template-mode}
-Enterring WL-Template mode calls the value of `wl-template-mode-hook'."
+Entering WL-Template mode calls the value of `wl-template-mode-hook'."
(kill-all-local-variables)
(setq mode-name "Wl-Template"
major-mode 'wl-template-mode)
-;;; wl-thread.el -- Thread display modules for Wanderlust.
+;;; wl-thread.el --- Thread display modules for Wanderlust.
;; Copyright (C) 1998,1999,2000 Yuuichi Teranishi <teranisi@gohome.org>
;; Copyright (C) 1998,1999,2000 Masahiro MURATA <muse@ba2.so-net.ne.jp>
;;
;;; Commentary:
-;;
+;;
;;; Code:
-;;
+;;
(require 'wl-summary)
(require 'wl-highlight)
;; buffer local variables.
;;(defvar wl-thread-top-entity '(nil t nil nil)) ; top entity
-(defvar wl-thread-tops nil) ; top number list (number)
+(defvar wl-thread-tops nil) ; top number list (number)
(defvar wl-thread-entities nil)
-(defvar wl-thread-entity-list nil) ; entity list
-(defvar wl-thread-entity-hashtb nil) ; obarray
+(defvar wl-thread-entity-list nil) ; entity list
+(defvar wl-thread-entity-hashtb nil) ; obarray
(defvar wl-thread-indent-regexp nil)
(make-variable-buffer-local 'wl-thread-entity-hashtb)
(elmo-list-insert wl-summary-buffer-number-list
(wl-thread-entity-get-number entity)
(progn
- (while (setq curc
+ (while (setq curc
(wl-thread-entity-get-children curp))
- (setq curp (wl-thread-get-entity
- (nth (- (length curc) 1)
+ (setq curp (wl-thread-get-entity
+ (nth (- (length curc) 1)
curc))))
(wl-thread-entity-get-number curp)))
(setcar (cddr to) (wl-append children
(defun wl-thread-jump-to-msg (&optional number)
(interactive)
(let ((num (or number
- (string-to-int
- (read-from-minibuffer "Jump to Message(No.): ")))))
+ (string-to-int
+ (read-from-minibuffer "Jump to Message(No.): ")))))
(wl-thread-entity-force-open (wl-thread-get-entity num))
(wl-summary-jump-to-msg num)))
ent entity nil))
(setq insert-msgs (cdr insert-msgs))))))
(if update
- ;; modify buffer.
+ ;; modify buffer.
(while update-msgs
(wl-thread-update-line-on-buffer-sub nil (pop update-msgs)))
- ;; don't update buffer
+ ;; don't update buffer
update-msgs)))) ; return value
(defun wl-thread-insert-message (overview-entity overview mark-alist
(ding)
(message "Error in wl-thread-update-children-number-hook."))))))))
-;;
+;;
;; Thread oriented commands.
;;
(defun wl-thread-call-region-func (func &optional arg)
(error
(elmo-display-error err t)
nil)))
-
+
(defun wl-thread-delete (&optional arg)
(interactive "P")
(wl-thread-call-region-func 'wl-summary-delete-region arg)
(wl-thread-get-entity (wl-summary-message-number)))))))
(wl-summary-set-message-modified)
(set-buffer-modified-p nil))))
-
+
(defun wl-thread-get-depth-of-current-line ()
(interactive)
-;;; wl-util.el -- Utility modules for Wanderlust.
+;;; wl-util.el --- Utility modules for Wanderlust.
;; Copyright (C) 1998,1999,2000 Yuuichi Teranishi <teranisi@gohome.org>
;; Copyright (C) 2000 A. SAGATA <sagata@nttvdt.hil.ntt.co.jp>
"^nntp://\\([^:/]*\\):?\\([0-9]*\\)/\\([^/]*\\)/\\([0-9]*\\).*$" url)
(progn
(if (eq (length (setq fld-name
- (elmo-match-string 3 url))) 0)
- (setq fld-name nil))
+ (elmo-match-string 3 url))) 0)
+ (setq fld-name nil))
(if (eq (length (setq port
(elmo-match-string 2 url))) 0)
- (setq port (int-to-string elmo-nntp-default-port)))
+ (setq port (int-to-string elmo-nntp-default-port)))
(if (eq (length (setq server
- (elmo-match-string 1 url))) 0)
- (setq server elmo-nntp-default-server))
+ (elmo-match-string 1 url))) 0)
+ (setq server elmo-nntp-default-server))
(setq folder (concat "-" fld-name "@" server ":" port))
(if (eq (length (setq msg
(elmo-match-string 4 url))) 0)
(defmacro wl-current-message-buffer ()
(` (save-excursion
(if (buffer-live-p wl-current-summary-buffer)
- (set-buffer wl-current-summary-buffer))
+ (set-buffer wl-current-summary-buffer))
wl-message-buffer)))
(defmacro wl-kill-buffers (regexp)
-;;; wl-vars.el -- Variable definitions for Wanderlust.
+;;; wl-vars.el --- Variable definitions for Wanderlust.
;; Copyright (C) 1998,1999,2000,2001 Yuuichi Teranishi <teranisi@gohome.org>
;; Copyright (C) 1998,1999,2000,2001 Masahiro MURATA <muse@ba2.so-net.ne.jp>
-;;; wl-version.el -- Version information for Wanderlust.
+;;; wl-version.el --- Version information for Wanderlust.
;; Copyright (C) 2000-2001 Yuuichi Teranishi <teranisi@gohome.org>
;; Copyright (C) 2000-2001 TAKAHASHI Kaoru <kaoru@kaisei.org>
-;;; wl-xmas.el -- Wanderlust modules for XEmacsen.
+;;; wl-xmas.el --- Wanderlust modules for XEmacsen.
;; Copyright (C) 1998,1999,2000 Yuuichi Teranishi <teranisi@gohome.org>
;; Copyright (C) 2000 Katsumi Yamaoka <yamaoka@jpl.org>
(defvar wl-folder-internal-icon-list
;; alist of (glyph . icon-file)
- '((wl-folder-nntp-glyph . wl-nntp-folder-icon)
- (wl-folder-imap4-glyph . wl-imap-folder-icon)
- (wl-folder-pop3-glyph . wl-pop-folder-icon)
- (wl-folder-localdir-glyph . wl-localdir-folder-icon)
- (wl-folder-localnews-glyph . wl-localnews-folder-icon)
- (wl-folder-internal-glyph . wl-internal-folder-icon)
- (wl-folder-multi-glyph . wl-multi-folder-icon)
- (wl-folder-filter-glyph . wl-filter-folder-icon)
- (wl-folder-archive-glyph . wl-archive-folder-icon)
- (wl-folder-pipe-glyph . wl-pipe-folder-icon)
- (wl-folder-maildir-glyph . wl-maildir-folder-icon)
- (wl-folder-nmz-glyph . wl-nmz-folder-icon)
- (wl-folder-shimbun-glyph . wl-shimbun-folder-icon)
- (wl-folder-trash-empty-glyph . wl-empty-trash-folder-icon)
- (wl-folder-draft-glyph . wl-draft-folder-icon)
- (wl-folder-queue-glyph . wl-queue-folder-icon)
- (wl-folder-trash-glyph . wl-trash-folder-icon)))
+ '((wl-folder-nntp-glyph . wl-nntp-folder-icon)
+ (wl-folder-imap4-glyph . wl-imap-folder-icon)
+ (wl-folder-pop3-glyph . wl-pop-folder-icon)
+ (wl-folder-localdir-glyph . wl-localdir-folder-icon)
+ (wl-folder-localnews-glyph . wl-localnews-folder-icon)
+ (wl-folder-internal-glyph . wl-internal-folder-icon)
+ (wl-folder-multi-glyph . wl-multi-folder-icon)
+ (wl-folder-filter-glyph . wl-filter-folder-icon)
+ (wl-folder-archive-glyph . wl-archive-folder-icon)
+ (wl-folder-pipe-glyph . wl-pipe-folder-icon)
+ (wl-folder-maildir-glyph . wl-maildir-folder-icon)
+ (wl-folder-nmz-glyph . wl-nmz-folder-icon)
+ (wl-folder-shimbun-glyph . wl-shimbun-folder-icon)
+ (wl-folder-trash-empty-glyph . wl-empty-trash-folder-icon)
+ (wl-folder-draft-glyph . wl-draft-folder-icon)
+ (wl-folder-queue-glyph . wl-queue-folder-icon)
+ (wl-folder-trash-glyph . wl-trash-folder-icon)))
(defun wl-folder-init-icons ()
(dolist (icon wl-folder-internal-icon-list)
-;;; wl.el -- Wanderlust bootstrap.
+;;; wl.el --- Wanderlust bootstrap.
;; Copyright (C) 1998,1999,2000 Yuuichi Teranishi <teranisi@gohome.org>
;; Copyright (C) 1998,1999,2000 Masahiro MURATA <muse@ba2.so-net.ne.jp>
;; from x-face.el
(unless (and (fboundp 'defgroup)
- (fboundp 'defcustom))
+ (fboundp 'defcustom))
(require 'backquote)
(defmacro defgroup (&rest args))
(defmacro defcustom (symbol value &optional doc &rest args)
(save-excursion
(beginning-of-line)
(cond
- ;; swtich variable
+ ;; switch variable
((bobp)
(let (variable switch name)
(goto-char cur-point)
(delete-region (match-beginning 2) (match-end 2))
(insert (wl-plugged-string switch))
(set-buffer-modified-p nil)))))
- ;; swtich plug
+ ;; switch plug
((looking-at "^\\( *\\)\\[\\([^]]+\\)\\]\\([^ \n]*\\)")
(let* ((indent (length (elmo-match-buffer 1)))
(switch (elmo-match-buffer 2))
(defun wl-exit ()
(interactive)
(when (or (not wl-interactive-exit)
- (y-or-n-p "Quit Wanderlust? "))
+ (y-or-n-p "Do you really want to quit Wanderlust? "))
(elmo-quit)
(wl-biff-stop)
(run-hooks 'wl-exit-hook)
(wl-folder-auto-check)
(run-hooks 'wl-auto-check-folder-hook))
(unless arg (wl-biff-start)))
- (error
+ (error
(if (buffer-live-p demo-buf)
(kill-buffer demo-buf))
(signal (car obj)(cdr obj)))
projects / elisp / wanderlust.git / commitdiff