From: letters@hotpop.com (Jari Aalto+mail.linux)
Subject: [patch] CVS gnus-group.el: Even quicker select group
Date: Mon, 18 Aug 2003 23:30:29 +0300 [thread overview]
Message-ID: <u18eogii.fsf@blue.sea.net> (raw)
Here is improvement to the quick select feature. The new variable
should be added to manual as well.
Jari
2003-08-18 Jari Aalto <jari.aalto@poboxes.com>
* gnus-group.el (gnus-group-quick-select-ignore-variable-list):
New user variable. More user controllable quickiness to select
the group.
(gnus-group-quick-select-group-variable-suppress): New support
macro.
(gnus-group-quick-select-group): Use new variable
`gnus-group-quick-select-ignore-variable-list'.
--- gnus-group.el 2003-08-18 23:24:06.000000000 +0300
+++ gnus-group.el.b 2003-08-18 23:16:48.000000000 +0300
@@ -77,6 +77,27 @@
(const best)
(sexp :tag "other" t)))
+(defcustom gnus-group-quick-select-ignore-variable-list
+ '(gnus-visual
+ gnus-score-find-score-files-function
+ gnus-home-score-file
+ gnus-apply-kill-hook
+ gnus-summary-expunge-below)
+ "List of variables to set to nil during `gnus-group-quick-select-group'.
+
+The fefault value is:
+
+ '(gnus-visual
+ gnus-score-find-score-files-function
+ gnus-home-score-file
+ gnus-apply-kill-hook
+ gnus-summary-expunge-below)
+
+But you might want to add also variable `gnus-use-scoring'. To maximize
+speed you could also add `gnus-show-threads'."
+ :group 'gnus-group-various
+ :type 'list)
+
(defcustom gnus-group-goto-unread t
"*If non-nil, movement commands will go to the next unread and subscribed group."
:link '(custom-manual "(gnus)Group Maneuvering")
@@ -1885,6 +1906,16 @@
(forward-line -1))
(gnus-group-read-group all t))
+(put 'gnus-group-quick-select-group-variable-suppress
+ 'lisp-indent-function 1)
+(defmacro gnus-group-quick-select-group-variable-suppress
+ (symbols &rest body)
+ "Suppress SYMBOLS by setting their values locally to nil."
+ (ignore-errors
+ (setq symbols (symbol-value symbols)))
+ `(let ,symbols
+ ,@body))
+
(defun gnus-group-quick-select-group (&optional all)
"Select the current group \"quickly\".
This means that no highlighting or scoring will be performed.
@@ -1892,14 +1923,14 @@
buffer.
This might be useful if you want to toggle threading
-before entering the group."
+before entering the group.
+
+The variables that are set to nil are listed in
+`gnus-group-quick-select-ignore-variable-list'."
(interactive "P")
(require 'gnus-score)
- (let (gnus-visual
- gnus-score-find-score-files-function
- gnus-home-score-file
- gnus-apply-kill-hook
- gnus-summary-expunge-below)
+ (gnus-group-quick-select-group-variable-suppress
+ gnus-group-quick-select-ignore-variable-list
(gnus-group-read-group all t)))
(defun gnus-group-visible-select-group (&optional all)
--
http://tiny-tools.sourceforge.net/
Swatch @time http://www.mir.com.my/iTime/itime.htm
http://www.ryanthiessen.com/swatch/resources.htm
Use Licenses! http://www.linuxjournal.com/article.php?sid=6225
Which Licence? http://www.linuxjournal.com/article.php?sid=4825
OSI Licences http://www.opensource.org/licenses/
next reply other threads:[~2003-08-18 20:30 UTC|newest]
Thread overview: 3+ messages / expand[flat|nested] mbox.gz Atom feed top
2003-08-18 20:30 Jari Aalto+mail.linux [this message]
2003-08-19 5:02 ` Kevin Greiner
2003-08-19 18:26 Jari Aalto+mail.linux
Reply instructions:
You may reply publicly to this message via plain-text email
using any one of the following methods:
* Save the following mbox file, import it into your mail client,
and reply-to-all from there: mbox
Avoid top-posting and favor interleaved quoting:
https://en.wikipedia.org/wiki/Posting_style#Interleaved_style
* Reply using the --to, --cc, and --in-reply-to
switches of git-send-email(1):
git send-email \
--in-reply-to=u18eogii.fsf@blue.sea.net \
--to=letters@hotpop.com \
/path/to/YOUR_REPLY
https://kernel.org/pub/software/scm/git/docs/git-send-email.html
* If your mail client supports setting the In-Reply-To header
via mailto: links, try the mailto: link
Be sure your reply has a Subject: header at the top and a blank line
before the message body.
This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for NNTP newsgroup(s).