projects
/
elisp
/
wanderlust.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
* wl-folder (wl-folder-insert-entity): Display a message,
[elisp/wanderlust.git]
/
wl
/
wl-news.el.in
diff --git
a/wl/wl-news.el.in
b/wl/wl-news.el.in
index
020f35a
..
dee1fbd
100644
(file)
--- a/
wl/wl-news.el.in
+++ b/
wl/wl-news.el.in
@@
-44,7
+44,8
@@
(if (and (boundp 'current-language-environment)
(string-equal "Japanese"
(symbol-value 'current-language-environment)))
(if (and (boundp 'current-language-environment)
(string-equal "Japanese"
(symbol-value 'current-language-environment)))
- '("ja" "en") '("en" "ja")))
+ '("ja" "en") '("en" "ja"))
+ "The list of languages to show NEWS. (order sensitive)")
(defun wl-news-check ()
(let* ((updated (not (wl-news-already-current-p))))
(defun wl-news-check ()
(let* ((updated (not (wl-news-already-current-p))))
@@
-92,7
+93,8
@@
(let ((filename (expand-file-name
wl-news-version-file-name
elmo-msgdb-directory))
(let ((filename (expand-file-name
wl-news-version-file-name
elmo-msgdb-directory))
- (tmp-buffer (get-buffer-create " *wl-news-version-tmp*")))
+ (tmp-buffer (get-buffer-create " *wl-news-version-tmp*"))
+ print-length print-level)
(set-buffer tmp-buffer)
(erase-buffer)
(prin1 (cons current-version previous-version) tmp-buffer)
(set-buffer tmp-buffer)
(erase-buffer)
(prin1 (cons current-version previous-version) tmp-buffer)