(defmacro defgroup (&rest args))
(defmacro defcustom (symbol value &optional doc &rest args)
(let ((doc (concat "*" (or doc ""))))
- (` (defvar (, symbol) (, value) (, doc))))))
+ `(defvar ,symbol ,value ,doc))))
(require 'wl-vars)
(require 'wl-util)
(defvar wl-plugged-port-label-alist
(list (cons 119 "nntp")
(cons 143 "imap4")
- (cons 110 "pop3")))
+ (cons 110 "pop3")
+ (cons 25 "smtp")))
;;(cons elmo-pop-before-smtp-port "pop3")
(defconst wl-plugged-switch-variables
(run-hooks 'wl-plugged-mode-hook))
(defmacro wl-plugged-string (plugged &optional time)
- (` (if (, time) wl-plugged-auto-off
- (if (, plugged) wl-plugged-plug-on wl-plugged-plug-off))))
+ `(if ,time wl-plugged-auto-off
+ (if ,plugged
+ wl-plugged-plug-on
+ wl-plugged-plug-off)))
-(defmacro wl-plugged-server-indent ()
- (` (make-string wl-plugged-server-indent ? )))
+(defun wl-plugged-server-indent ()
+ (make-string wl-plugged-server-indent ? ))
(defun wl-plugged-set-variables ()
(setq wl-plugged-sending-queue-alist
(/ (frame-height) 2)
(window-height)))
window-lines lines)
- (save-excursion
- (set-buffer (get-buffer-create wl-plugged-buf-name))
+ (with-current-buffer (get-buffer-create wl-plugged-buf-name)
(wl-plugged-mode)
(buffer-disable-undo (current-buffer))
(delete-windows-on (current-buffer))
((eq indent wl-plugged-port-indent) ;; toggle port plug
(cond
((string-match "\\([^([]*\\)(\\([^)[]+\\))" name)
- (setq port (string-to-int (elmo-match-string 2 name)))
+ (setq port (string-to-number (elmo-match-string 2 name)))
(if (string-match "!" (setq name-1 (elmo-match-string 1 name)))
(setq stream-type
(intern (substring name-1 (match-end 0))))))
(when wl-use-acap (funcall (symbol-function 'wl-acap-exit)))
(wl-biff-stop)
(elmo-clear-signal-slots)
- (elmo-passwd-alist-clear)
(run-hooks 'wl-exit-hook)
(wl-save-status)
(wl-folder-cleanup-variables)
;; (delete-frame))
(setq wl-init nil)
(remove-hook 'kill-emacs-hook 'wl-save-status)
+ (elmo-passwd-alist-clear)
t)
(message "") ; empty minibuffer.
)
(symbol-value 'wl-summary-subject-function))
(fset 'wl-summary-subject-filter-func-internal
(symbol-value 'wl-summary-subject-filter-function))
+ (wl-summary-define-sort-command)
(wl-summary-define-mark-action)
(dolist (spec wl-summary-flag-alist)
(set-face-foreground
(make-face (intern
(format "wl-highlight-summary-%s-flag-face" (car spec))))
(nth 1 spec)))
+ (setq elmo-get-folder-function #'wl-folder-make-elmo-folder
+ elmo-progress-callback-function #'wl-progress-callback-function)
(setq elmo-no-from wl-summary-no-from-message)
(setq elmo-no-subject wl-summary-no-subject-message)
+ (elmo-global-flags-initialize (mapcar 'car wl-summary-flag-alist))
(elmo-connect-signal
nil
'message-number-changed
;; Define some autoload functions WL might use.
(eval-and-compile
- ;; This little mapcar goes through the list below and marks the
+ ;; This little mapc goes through the list below and marks the
;; symbols in question as autoloaded functions.
- (mapcar
- (function
- (lambda (package)
- (let ((interactive (nth 1 (memq ':interactive package))))
- (mapcar
- (function
- (lambda (function)
- (let (keymap)
- (when (consp function)
- (setq keymap (car (memq 'keymap function)))
- (setq function (car function)))
- (autoload function (car package) nil interactive keymap))))
- (if (eq (nth 1 package) ':interactive)
- (cdddr package)
- (cdr package))))))
+ (mapc
+ (lambda (package)
+ (let ((interactive (nth 1 (memq ':interactive package))))
+ (mapc
+ (lambda (function)
+ (let (keymap)
+ (when (consp function)
+ (setq keymap (car (memq 'keymap function)))
+ (setq function (car function)))
+ (autoload function (car package) nil interactive keymap)))
+ (if (eq (nth 1 package) ':interactive)
+ (cdddr package)
+ (cdr package)))))
'(("wl-fldmgr" :interactive t
wl-fldmgr-access-display-all wl-fldmgr-access-display-normal
wl-fldmgr-add wl-fldmgr-clear-cut-entity-list wl-fldmgr-copy