(defun wl-current-message-buffer ()
(when (buffer-live-p wl-current-summary-buffer)
(with-current-buffer wl-current-summary-buffer
- (car (wl-message-buffer-display wl-summary-buffer-elmo-folder
- (wl-summary-message-number)
- 'mime)))))
+ (or wl-message-buffer
+ (and (wl-summary-message-number)
+ (car (wl-message-buffer-display wl-summary-buffer-elmo-folder
+ (wl-summary-message-number)
+ 'mime)))))))
(defmacro wl-kill-buffers (regexp)
(` (mapcar (function
(defun wl-region-exists-p ()
"Return non-nil if a region exists on current buffer."
(static-if (featurep 'xemacs)
- (and zmacs-regions zmacs-region-active-p)
+ (region-active-p)
(and transient-mark-mode mark-active)))
+(defun wl-deactivate-region ()
+ "Deactivate region on current buffer"
+ (static-if (not (featurep 'xemacs))
+ (setq mark-active nil)))
+
(defvar wl-line-string)
(defun wl-line-parse-format (format spec-alist)
"Make a formatter from FORMAT and SPEC-ALIST."