*** empty log message ***

[gnus] / lisp / gnus-salt.el

diff --git a/lisp/gnus-salt.el b/lisp/gnus-salt.el
index c850f7b..be9fd49 100644 (file)
--- a/lisp/gnus-salt.el
+++ b/lisp/gnus-salt.el
@@ -44,7 +44,7 @@
   "*If non-nil, mark all unpicked articles as read.")
 
 (defvar gnus-summary-pick-line-format
-  "%-5p %U\%R\%z\%I\%(%[%4L: %-20,20n%]%) %s\n"
+  "%-5P %U\%R\%z\%I\%(%[%4L: %-20,20n%]%) %s\n"
   "*The format specification of the lines in pick buffers.
 It accepts the same format specs that `gnus-summary-line-format' does.")
 
@@ -70,6 +70,7 @@ It accepts the same format specs that `gnus-summary-line-format' does.")
    "b" gnus-uu-mark-buffer
    "B" gnus-uu-unmark-buffer
    "." gnus-pick-article
+   gnus-mouse-2 gnus-pick-pick-article
    "\r" gnus-pick-start-reading))
 
 (defun gnus-pick-make-menu-bar ()
@@ -107,11 +108,8 @@ It accepts the same format specs that `gnus-summary-line-format' does.")
       (make-local-variable 'gnus-auto-select-first)
       (setq gnus-auto-select-first nil)
       ;; Change line format.
-      (make-local-variable 'gnus-summary-line-format)
-      (setq gnus-summary-line-format 
-           gnus-summary-pick-line-format)
-      (make-local-variable 'gnus-summary-line-format-spec)
-      (setq gnus-summary-line-format nil)
+      (setq gnus-summary-line-format gnus-summary-pick-line-format)
+      (setq gnus-summary-line-format-spec nil)
       (gnus-update-format-specifications nil 'summary)
       (gnus-update-summary-mark-positions)
       ;; Set up the menu.
@@ -159,6 +157,12 @@ If ARG, pick the article on that line instead."
        (goto-char pos))))
   (gnus-summary-mark-as-processable 1))
 
+(defun gnus-mouse-pick-article (e)
+  (interactive "e")
+  (mouse-set-point e)
+  (save-excursion
+    (gnus-summary-mark-as-processable 1)))
+
 (defun gnus-pick-next-page ()
   "Go to the next page.  If at the end of the buffer, start reading articles."
   (interactive)
@@ -632,6 +636,7 @@ Two predefined functions are available:
   (when (save-excursion
          (set-buffer gnus-summary-buffer)
          (and gnus-use-trees
+              gnus-show-threads
               (vectorp (gnus-summary-article-header article))))
     (save-excursion
       (let ((top (save-excursion