(wl-plugged-dop-queue-status): Don't quote `lambda'.
* wl-thread.el (wl-thread-delete-message): Ditto
* wl-summary.el (wl-summary-edit-addresses)
(wl-summary-edit-addresses-collect-candidate-fields)
(wl-summary-search-by-subject): Ditto.
* wl-mime.el (wl-mime-node-id-to-string): Ditto.
* wl-fldmgr.el (wl-fldmgr-add-completion-all-completions)
(wl-fldmgr-add-completion-subr): Ditto.
* wl-draft.el (wl-smtp-extension-bind)
(wl-draft-insert-get-message, wl-draft-default-headers)
(wl-jump-to-draft-buffer): Ditto.
* wl-summary.el (wl-summary-cursor-move-surface, wl-summary-up)
(wl-summary-down): Ditto.
* wl-message.el (wl-message-buffer-prefetch-subr): Ditto.
* wl-draft.el (wl-draft-reply, wl-draft-write-sendlog): Ditto.
* wl-folder.el (wl-folder-make-save-access-list)
(wl-folder-update-access-group, wl-folder-pick): Ditto.
+2010-01-04 TAKAHASHI Kaoru <kaoru@kaisei.org>
+
+ * wl.el (wl-plugged-set-variables, wl-plugged-dop-queue-info)
+ (wl-plugged-dop-queue-status): Don't quote `lambda'.
+ * wl-thread.el (wl-thread-delete-message): Ditto
+ * wl-summary.el (wl-summary-edit-addresses)
+ (wl-summary-edit-addresses-collect-candidate-fields)
+ (wl-summary-search-by-subject): Ditto.
+ * wl-mime.el (wl-mime-node-id-to-string): Ditto.
+ * wl-fldmgr.el (wl-fldmgr-add-completion-all-completions)
+ (wl-fldmgr-add-completion-subr): Ditto.
+ * wl-draft.el (wl-smtp-extension-bind)
+ (wl-draft-insert-get-message, wl-draft-default-headers)
+ (wl-jump-to-draft-buffer): Ditto.
+ * wl-summary.el (wl-summary-cursor-move-surface, wl-summary-up)
+ (wl-summary-down): Ditto.
+ * wl-message.el (wl-message-buffer-prefetch-subr): Ditto.
+ * wl-draft.el (wl-draft-reply, wl-draft-write-sendlog): Ditto.
+ * wl-folder.el (wl-folder-make-save-access-list)
+ (wl-folder-update-access-group, wl-folder-pick): Ditto.
+
2010-01-02 TAKAHASHI Kaoru <kaoru@kaisei.org>
* wl-draft.el (wl-draft-default-headers): Suppress warning
to (copy-sequence to))
t t))
(and to (setq to (mapconcat
- '(lambda (addr)
- (if wl-draft-reply-use-address-with-full-name
- (or (cdr (assoc addr to-alist)) addr)
- addr))
+ (lambda (addr)
+ (if wl-draft-reply-use-address-with-full-name
+ (or (cdr (assoc addr to-alist)) addr)
+ addr))
to ",\n\t")))
(and cc (setq cc (mapconcat
- '(lambda (addr)
- (if wl-draft-reply-use-address-with-full-name
- (or (cdr (assoc addr cc-alist)) addr)
- addr))
+ (lambda (addr)
+ (if wl-draft-reply-use-address-with-full-name
+ (or (cdr (assoc addr cc-alist)) addr)
+ addr))
cc ",\n\t")))
(and mail-followup-to
(setq mail-followup-to
(mapconcat
- '(lambda (addr)
- (if wl-draft-reply-use-address-with-full-name
- (or (cdr (assoc addr (append to-alist cc-alist))) addr)
- addr))
+ (lambda (addr)
+ (if wl-draft-reply-use-address-with-full-name
+ (or (cdr (assoc addr (append to-alist cc-alist))) addr)
+ addr))
mail-followup-to ",\n\t")))
(and (null to) (setq to cc cc nil))
(setq references (delq nil references)
(concat " to="
(mapconcat
'identity
- (mapcar '(lambda(x) (format "<%s>" x)) to)
+ (mapcar (lambda(x) (format "<%s>" x)) to)
","))))
""))
(id (if id (concat " id=" id) ""))
(let ((table
(catch 'found
(mapatoms
- (function
- (lambda (atom)
- (if (string-match (symbol-name atom) string)
- (throw 'found (symbol-value atom)))))
+ (lambda (atom)
+ (if (string-match (symbol-name atom) string)
+ (throw 'found (symbol-value atom))))
wl-fldmgr-add-completion-hashtb)))
(pattern
(if (string-match "\\.$"
(defun wl-fldmgr-add-completion-subr (string predicate flag)
(let ((table
(if (string= string "")
- (mapcar (function (lambda (spec)
- (list (char-to-string (car spec)))))
+ (mapcar (lambda (spec)
+ (list (char-to-string (car spec))))
elmo-folder-type-alist)
(when (assq (aref string 0) elmo-folder-type-alist)
(delq nil (mapcar
(list new unread all)))
(defsubst wl-folder-make-save-access-list (list)
- (mapcar '(lambda (x)
- (cond
- ((consp x)
- (list (elmo-string (car x)) 'access))
- (t
- (elmo-string x))))
+ (mapcar (lambda (x)
+ (cond
+ ((consp x)
+ (list (elmo-string (car x)) 'access))
+ (t
+ (elmo-string x))))
list))
(defun wl-folder-update-newest (indent entity)
(if (or new-flist removes)
(setq diff t))
(setq new-flist
- (mapcar '(lambda (x)
- (cond ((consp x) (list (car x) 'access))
- (t x)))
+ (mapcar (lambda (x)
+ (cond ((consp x) (list (car x) 'access))
+ (t x)))
new-flist))
;; check new groups
(let ((new-list new-flist))
(setq folder-list (cdr folder-list)))
(if results
(message "%s are picked."
- (mapconcat '(lambda (res)
- (format "%s(%d)"
- (car res)
- (length (cdr res))))
+ (mapconcat (lambda (res)
+ (format "%s(%d)"
+ (car res)
+ (length (cdr res))))
results
","))
(message "No message was picked.")))))
(when wl-message-buffer-prefetch-debug
(message "Buffer Cached Messages: %s"
(mapconcat
- '(lambda (cache)
- (if (numberp (nth 1 (car cache)))
- (if (string=
- (nth 0 (car cache))
- (elmo-folder-name-internal folder))
- (format "%d"
- (nth 1 (car cache)))
- (format "*%d" (nth 1 (car cache))))
- "-"))
+
+ (lambda (cache)
+ (if (numberp (nth 1 (car cache)))
+ (if (string=
+ (nth 0 (car cache))
+ (elmo-folder-name-internal folder))
+ (format "%d"
+ (nth 1 (car cache)))
+ (format "*%d" (nth 1 (car cache))))
+ "-"))
wl-message-buffer-cache " "))) )))
(defvar wl-message-button-map (make-sparse-keymap))
(defsubst wl-mime-node-id-to-string (node-id)
(if (consp node-id)
- (mapconcat (function (lambda (num) (format "%s" (1+ num))))
+ (mapconcat (lambda (num) (format "%s" (1+ num)))
(reverse node-id)
".")
"0"))
(setq fields (cdr fields)))
(setq candidates (elmo-uniq-list candidates))
(elmo-with-enable-multibyte
- (mapcar (function
- (lambda (x)
- (setq components (std11-extract-address-components x))
- (cons (nth 1 components)
- (and (car components)
- (eword-decode-string
- (decode-mime-charset-string
- (car components)
- mime-charset))))))
- candidates))))
+ (mapcar
+ (lambda (x)
+ (setq components (std11-extract-address-components x))
+ (cons (nth 1 components)
+ (and (car components)
+ (eword-decode-string
+ (decode-mime-charset-string
+ (car components)
+ mime-charset)))))
+ candidates))))
(defun wl-summary-edit-addresses-subr (the-email name-in-addr)
;; returns nil if there's no change.
(completing-read
(format "Target address (%s): " address)
(mapcar
- (function (lambda (x) (cons (car x) (car x))))
+ (lambda (x) (cons (car x) (car x)))
candidates)
nil nil nil nil address))))
(when address
(message "Creating subject cache...")
(wl-summary-insert-headers
folder
- (function
- (lambda (x)
- (funcall wl-summary-subject-filter-function
- (elmo-message-entity-field x 'subject)))))
+ (lambda (x)
+ (funcall wl-summary-subject-filter-function
+ (elmo-message-entity-field x 'subject))))
(message "Creating subject cache...done"))
(setq match (funcall wl-summary-subject-filter-function
(elmo-message-entity-field entity 'subject)))
(setq range
(completing-read (format "Range (%s): " default)
(mapcar
- (function (lambda (x) (cons x x)))
+ (lambda (x) (cons x x))
input-range-list)))
(if (string= range "")
default
(apply (function nconc)
update-msgs
(mapcar
- (function
- (lambda (message)
- (wl-thread-get-children-msgs message t)))
+ (lambda (message)
+ (wl-thread-get-children-msgs message t))
children))))
(wl-thread-entity-set-children
parent (append older-brothers children younger-brothers))
(wl-plugged-dop-queue-info))
(setq wl-plugged-alist
(sort (copy-sequence elmo-plugged-alist)
- '(lambda (a b)
- (string< (caar a) (caar b))))))
+ (lambda (a b)
+ (string< (caar a) (caar b))))))
(defun wl-plugged-sending-queue-info ()
;; sending queue status
ope operation)
;(elmo-dop-queue-load)
(elmo-dop-queue-merge)
- (setq dop-queue (sort elmo-dop-queue '(lambda (a b)
- (string< (elmo-dop-queue-fname a)
- (elmo-dop-queue-fname b)))))
+ (setq dop-queue (sort elmo-dop-queue (lambda (a b)
+ (string< (elmo-dop-queue-fname a)
+ (elmo-dop-queue-fname b)))))
(wl-append dop-queue (list nil)) ;; terminate(dummy)
(when (car dop-queue)
(setq last (elmo-dop-queue-fname (car dop-queue)))) ;; first
(let ((operations (cdr qinfo))
(column (or column wl-plugged-queue-status-column)))
(mapconcat
- '(lambda (folder-ope)
- (concat (wl-plugged-set-folder-icon
- (car folder-ope)
- (wl-folder-get-petname (car folder-ope)))
- "("
- (let ((opes (cdr folder-ope))
- pair shrinked)
- (while opes
- (if (setq pair (assoc (car (car opes)) shrinked))
- (setcdr pair (+ (cdr pair)
- (max (cdr (car opes)) 1)))
- (setq shrinked (cons
- (cons (car (car opes))
- (max (cdr (car opes)) 1))
- shrinked)))
- (setq opes (cdr opes)))
- (mapconcat
- '(lambda (ope)
- (if (> (cdr ope) 0)
- (format "%s:%d" (car ope) (cdr ope))
- (format "%s" (car ope))))
- (nreverse shrinked) ","))
- ")"))
+ (lambda (folder-ope)
+ (concat (wl-plugged-set-folder-icon
+ (car folder-ope)
+ (wl-folder-get-petname (car folder-ope)))
+ "("
+ (let ((opes (cdr folder-ope))
+ pair shrinked)
+ (while opes
+ (if (setq pair (assoc (car (car opes)) shrinked))
+ (setcdr pair (+ (cdr pair)
+ (max (cdr (car opes)) 1)))
+ (setq shrinked (cons
+ (cons (car (car opes))
+ (max (cdr (car opes)) 1))
+ shrinked)))
+ (setq opes (cdr opes)))
+ (mapconcat
+ (lambda (ope)
+ (if (> (cdr ope) 0)
+ (format "%s:%d" (car ope) (cdr ope))
+ (format "%s" (car ope))))
+ (nreverse shrinked) ","))
+ ")"))
operations
(concat "\n" (wl-set-string-width column "")))))
projects / elisp / wanderlust.git / commitdiff