(add-hook hook function nil t)))
(add-hook 'window-size-change-functions
#'wl-summary-after-resize-function))
- (make-local-hook 'change-major-mode-hook)
- (add-hook 'change-major-mode-hook #'wl-summary-buffer-detach nil t)
- (add-hook 'kill-buffer-hook #'wl-summary-buffer-detach)
+ (dolist (hook '(change-major-mode-hook kill-buffer-hook))
+ (make-local-hook hook)
+ (add-hook hook #'wl-summary-buffer-detach nil t))
;; 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))
wl-summary-buffer-current-msg
(wl-summary-message-number)
(= (wl-summary-message-number) wl-summary-buffer-current-msg))
- (with-current-buffer wl-message-buffer
- wl-message-buffer-cur-display-type)))
+ (wl-message-buffer-display-type wl-message-buffer)))
(defun wl-summary-buffer-display-mime-mode ()
(or (wl-message-display-type-property (wl-summary-message-display-type)