aboutsummaryrefslogtreecommitdiffstats
path: root/lisp
diff options
context:
space:
mode:
Diffstat (limited to 'lisp')
-rw-r--r--lisp/files.el2
-rw-r--r--lisp/gnus/ChangeLog5
-rw-r--r--lisp/gnus/nnir.el3
3 files changed, 8 insertions, 2 deletions
diff --git a/lisp/files.el b/lisp/files.el
index ce032534f04..238be36cae0 100644
--- a/lisp/files.el
+++ b/lisp/files.el
@@ -4183,7 +4183,7 @@ Checks for files in `temporary-file-directory',
4183`small-temporary-file-directory', and /tmp." 4183`small-temporary-file-directory', and /tmp."
4184 (let ((temporary-file-directory temporary-file-directory) 4184 (let ((temporary-file-directory temporary-file-directory)
4185 caseless) 4185 caseless)
4186 ;; On MS-Windows, file-truename will convert short 8+3 alises to 4186 ;; On MS-Windows, file-truename will convert short 8+3 aliases to
4187 ;; their long file-name equivalents, so compare-strings does TRT. 4187 ;; their long file-name equivalents, so compare-strings does TRT.
4188 (if (memq system-type '(ms-dos windows-nt)) 4188 (if (memq system-type '(ms-dos windows-nt))
4189 (setq temporary-file-directory (file-truename temporary-file-directory) 4189 (setq temporary-file-directory (file-truename temporary-file-directory)
diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog
index f15ed7e707c..cc7897accb6 100644
--- a/lisp/gnus/ChangeLog
+++ b/lisp/gnus/ChangeLog
@@ -1,3 +1,8 @@
12013-04-14 Andrew Cohen <cohen@bu.edu>
2
3 * nnir.el (nnir-request-set-mark): Make sure we are in the right
4 group.
5
12013-04-12 Katsumi Yamaoka <yamaoka@jpl.org> 62013-04-12 Katsumi Yamaoka <yamaoka@jpl.org>
2 7
3 * gnus-msg.el (gnus-msg-mail): Make it avoid using posting styles 8 * gnus-msg.el (gnus-msg-mail): Make it avoid using posting styles
diff --git a/lisp/gnus/nnir.el b/lisp/gnus/nnir.el
index 5d244a019cb..2fa6b600ac1 100644
--- a/lisp/gnus/nnir.el
+++ b/lisp/gnus/nnir.el
@@ -837,6 +837,7 @@ skips all prompting."
837 (gnus-request-update-mark artgroup artnumber mark))) 837 (gnus-request-update-mark artgroup artnumber mark)))
838 838
839(deffoo nnir-request-set-mark (group actions &optional server) 839(deffoo nnir-request-set-mark (group actions &optional server)
840 (nnir-possibly-change-group group server)
840 (let (mlist) 841 (let (mlist)
841 (dolist (action actions) 842 (dolist (action actions)
842 (destructuring-bind (range action marks) action 843 (destructuring-bind (range action marks) action
@@ -853,7 +854,7 @@ skips all prompting."
853 854
854 855
855(deffoo nnir-request-update-info (group info &optional server) 856(deffoo nnir-request-update-info (group info &optional server)
856 (nnir-possibly-change-group group) 857 (nnir-possibly-change-group group server)
857 ;; clear out all existing marks. 858 ;; clear out all existing marks.
858 (gnus-info-set-marks info nil) 859 (gnus-info-set-marks info nil)
859 (gnus-info-set-read info nil) 860 (gnus-info-set-read info nil)