projects
/
elisp
/
wanderlust.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Fix.
[elisp/wanderlust.git]
/
wl
/
wl-util.el
diff --git
a/wl/wl-util.el
b/wl/wl-util.el
index
259235a
..
30f0740
100644
(file)
--- a/
wl/wl-util.el
+++ b/
wl/wl-util.el
@@
-667,7
+667,7
@@
that `read' can handle, whenever this is possible."
(defvar wl-load-profile-function 'wl-local-load-profile)
(defun wl-local-load-profile ()
"Load `wl-init-file'."
(defvar wl-load-profile-function 'wl-local-load-profile)
(defun wl-local-load-profile ()
"Load `wl-init-file'."
- (message "Initializing ...")
+ (message "Initializing...")
(load wl-init-file 'noerror 'nomessage))
(defun wl-load-profile ()
(load wl-init-file 'noerror 'nomessage))
(defun wl-load-profile ()
@@
-846,7
+846,7
@@
This function is imported from Emacs 20.7."
(defun wl-biff-check-folder (folder)
(if (eq (elmo-folder-type-internal folder) 'pop3)
(defun wl-biff-check-folder (folder)
(if (eq (elmo-folder-type-internal folder) 'pop3)
- (unless (elmo-pop3-get-session folder 'if-exists)
+ (unless (elmo-pop3-get-session folder 'any-exists)
(wl-folder-check-one-entity (elmo-folder-name-internal folder)
'biff))
(wl-folder-check-one-entity (elmo-folder-name-internal folder)
(wl-folder-check-one-entity (elmo-folder-name-internal folder)
'biff))
(wl-folder-check-one-entity (elmo-folder-name-internal folder)
@@
-899,6
+899,12
@@
is enclosed by at least one regexp grouping construct."
(defalias 'wl-expand-newtext 'elmo-expand-newtext)
(defalias 'wl-expand-newtext 'elmo-expand-newtext)
+(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)
+ (and transient-mark-mode mark-active)))
+
(defvar wl-line-string)
(defun wl-line-parse-format (format spec-alist)
"Make a formatter from FORMAT and SPEC-ALIST."
(defvar wl-line-string)
(defun wl-line-parse-format (format spec-alist)
"Make a formatter from FORMAT and SPEC-ALIST."