Mercurial > emacs
annotate lisp/scroll-all.el @ 110410:f2e111723c3a
Merge changes made in Gnus trunk.
Reimplement nnimap, and do tweaks to the rest of the code to support that.
* gnus-int.el (gnus-finish-retrieve-group-infos)
(gnus-retrieve-group-data-early): New functions.
* gnus-range.el (gnus-range-nconcat): New function.
* gnus-start.el (gnus-get-unread-articles): Support early retrieval of
data.
(gnus-read-active-for-groups): Support finishing the early retrieval of
data.
* gnus-sum.el (gnus-summary-move-article): Pass the move-to group name
if the move is internal, so that nnimap can do fast internal moves.
* gnus.el (gnus-article-special-mark-lists): Add uid/active tuples, for
nnimap usage.
* nnimap.el: Rewritten.
* nnmail.el (nnmail-inhibit-default-split-group): New internal variable
to allow the mail splitting to not return a default group. This is
useful for nnimap, which will leave unmatched mail in the inbox.
* utf7.el (utf7-encode): Autoload.
Implement shell connection.
* nnimap.el (nnimap-open-shell-stream): New function.
(nnimap-open-connection): Use it.
Get the number of lines by using BODYSTRUCTURE.
(nnimap-transform-headers): Get the number of lines in each message.
(nnimap-retrieve-headers): Query for BODYSTRUCTURE so that we get the
number of lines.
Not all servers return UIDNEXT. Work past this problem.
Remove junk from end of file.
Fix typo in "bogus" section.
Make capabilties be case-insensitive.
Require cl when compiling.
Don't bug out if the LIST command doesn't have any parameters.
2010-09-17 Knut Anders Hatlen <kahatlen@gmail.com> (tiny change)
* nnimap.el (nnimap-get-groups): Don't bug out if the LIST command
doesn't have any parameters.
(mm-text-html-renderer): Document gnus-article-html.
2010-09-17 Julien Danjou <julien@danjou.info> (tiny fix)
* mm-decode.el (mm-text-html-renderer): Document gnus-article-html.
* dgnushack.el: Define netrc-credentials.
If the user doesn't have a /etc/services, supply some sensible port defaults.
Have `unseen-or-unread' select an unread unseen article first.
(nntp-open-server): Return whether the open was successful or not.
Throughout all files, replace (save-excursion (set-buffer ...)) with (with-current-buffer ... ).
Save result so that it doesn't say "failed" all the time.
Add ~/.authinfo to the default, since that's probably most useful for users.
Don't use the "finish" method when we're reading from the agent.
Add some more nnimap-relevant agent stuff to nnagent.el.
* nnimap.el (nnimap-with-process-buffer): Removed.
Revert one line that was changed by mistake in the last checkin.
(nnimap-open-connection): Don't error out when we can't make a connection
nnimap-related changes to avoid bugging out if we can't contact a server.
* gnus-start.el (gnus-get-unread-articles): Don't try to scan groups
from methods that are denied.
* nnimap.el (nnimap-possibly-change-group): Return nil if we can't log
in.
(nnimap-finish-retrieve-group-infos): Make sure we're not waiting for
nothing.
* gnus-sum.el (gnus-select-newsgroup): Indent.
author | Katsumi Yamaoka <yamaoka@jpl.org> |
---|---|
date | Sat, 18 Sep 2010 10:02:19 +0000 |
parents | aacdc5451940 |
children | 417b1e4d63cd |
rev | line source |
---|---|
38436
b174db545cfd
Some fixes to follow coding conventions.
Pavel Janík <Pavel@Janik.cz>
parents:
33422
diff
changeset
|
1 ;;; scroll-all.el --- scroll all buffers together minor mode |
17597 | 2 |
74442 | 3 ;; Copyright (C) 1997, 2001, 2002, 2003, 2004, 2005, |
106815 | 4 ;; 2006, 2007, 2008, 2009, 2010 Free Software Foundation, Inc. |
17597 | 5 |
6 ;; Author: Gary D. Foster <Gary.Foster@corp.sun.com> | |
7 ;; Keywords: scroll crisp brief lock | |
8 | |
9 ;; This file is part of GNU Emacs. | |
10 | |
94678
ee5932bf781d
Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents:
93975
diff
changeset
|
11 ;; GNU Emacs is free software: you can redistribute it and/or modify |
17597 | 12 ;; it under the terms of the GNU General Public License as published by |
94678
ee5932bf781d
Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents:
93975
diff
changeset
|
13 ;; the Free Software Foundation, either version 3 of the License, or |
ee5932bf781d
Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents:
93975
diff
changeset
|
14 ;; (at your option) any later version. |
17597 | 15 |
16 ;; GNU Emacs is distributed in the hope that it will be useful, | |
17 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of | |
18 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the | |
19 ;; GNU General Public License for more details. | |
20 | |
21 ;; You should have received a copy of the GNU General Public License | |
94678
ee5932bf781d
Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents:
93975
diff
changeset
|
22 ;; along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>. |
17597 | 23 |
38436
b174db545cfd
Some fixes to follow coding conventions.
Pavel Janík <Pavel@Janik.cz>
parents:
33422
diff
changeset
|
24 ;;; Commentary: |
17597 | 25 ;; This mode allows multiple buffers to be 'locked' so that scrolling |
26 ;; up or down lines in any buffer causes all the buffers to mirror | |
27 ;; the scrolling. It hooks into the post-command-hook to check for | |
28 ;; potential scrolling commands and if we're locked, mirrors them in all | |
74157 | 29 ;; windows. This allows us to grab line-at-a-time scrolling as well as |
17597 | 30 ;; screen-at-a-time scrolling, and doesn't remap any of the keyboard |
31 ;; commands to do it. | |
32 | |
17598
b3016633740a
Renamed from scroll-lock.el.
Richard M. Stallman <rms@gnu.org>
parents:
17597
diff
changeset
|
33 ;; You can enable and disable this mode with the 'scroll-all-mode' command. |
17597 | 34 |
35 ;; Suggestions/ideas from: | |
36 ;; Rick Macdonald <rickm@vsl.com> | |
37 ;; Anders Lindgren <andersl@csd.uu.se> | |
38 | |
38436
b174db545cfd
Some fixes to follow coding conventions.
Pavel Janík <Pavel@Janik.cz>
parents:
33422
diff
changeset
|
39 ;;; Code: |
b174db545cfd
Some fixes to follow coding conventions.
Pavel Janík <Pavel@Janik.cz>
parents:
33422
diff
changeset
|
40 |
44821
4ebf66bb8850
(scroll-all-function-all): New function to do the work of scrolling other
Glenn Morris <rgm@gnu.org>
parents:
44731
diff
changeset
|
41 (defun scroll-all-function-all (func arg) |
4ebf66bb8850
(scroll-all-function-all): New function to do the work of scrolling other
Glenn Morris <rgm@gnu.org>
parents:
44731
diff
changeset
|
42 "Apply function FUNC with argument ARG to all visible windows." |
17597 | 43 (let ((num-windows (count-windows)) |
44731 | 44 (count 1)) |
44722
c4139de15915
(scroll-all-page-down-all, scroll-all-page-up-all): Ignore the error if one
Glenn Morris <rgm@gnu.org>
parents:
44721
diff
changeset
|
45 (when (> num-windows 1) |
44731 | 46 (other-window 1) |
47 (while (< count num-windows) | |
48 (condition-case nil | |
44821
4ebf66bb8850
(scroll-all-function-all): New function to do the work of scrolling other
Glenn Morris <rgm@gnu.org>
parents:
44731
diff
changeset
|
49 (funcall func arg) |
4ebf66bb8850
(scroll-all-function-all): New function to do the work of scrolling other
Glenn Morris <rgm@gnu.org>
parents:
44731
diff
changeset
|
50 ;; Ignore beginning- or end-of-buffer error in other windows. |
4ebf66bb8850
(scroll-all-function-all): New function to do the work of scrolling other
Glenn Morris <rgm@gnu.org>
parents:
44731
diff
changeset
|
51 (error nil) |
4ebf66bb8850
(scroll-all-function-all): New function to do the work of scrolling other
Glenn Morris <rgm@gnu.org>
parents:
44731
diff
changeset
|
52 ) |
44731 | 53 (other-window 1) |
54 (setq count (1+ count)))))) | |
17597 | 55 |
44821
4ebf66bb8850
(scroll-all-function-all): New function to do the work of scrolling other
Glenn Morris <rgm@gnu.org>
parents:
44731
diff
changeset
|
56 (defun scroll-all-scroll-down-all (arg) |
4ebf66bb8850
(scroll-all-function-all): New function to do the work of scrolling other
Glenn Morris <rgm@gnu.org>
parents:
44731
diff
changeset
|
57 "Scroll down in all visible windows." |
4ebf66bb8850
(scroll-all-function-all): New function to do the work of scrolling other
Glenn Morris <rgm@gnu.org>
parents:
44731
diff
changeset
|
58 (interactive "p") |
4ebf66bb8850
(scroll-all-function-all): New function to do the work of scrolling other
Glenn Morris <rgm@gnu.org>
parents:
44731
diff
changeset
|
59 (scroll-all-function-all 'next-line arg)) |
4ebf66bb8850
(scroll-all-function-all): New function to do the work of scrolling other
Glenn Morris <rgm@gnu.org>
parents:
44731
diff
changeset
|
60 |
4ebf66bb8850
(scroll-all-function-all): New function to do the work of scrolling other
Glenn Morris <rgm@gnu.org>
parents:
44731
diff
changeset
|
61 (defun scroll-all-scroll-up-all (arg) |
4ebf66bb8850
(scroll-all-function-all): New function to do the work of scrolling other
Glenn Morris <rgm@gnu.org>
parents:
44731
diff
changeset
|
62 "Scroll up in all visible windows." |
4ebf66bb8850
(scroll-all-function-all): New function to do the work of scrolling other
Glenn Morris <rgm@gnu.org>
parents:
44731
diff
changeset
|
63 (interactive "p") |
4ebf66bb8850
(scroll-all-function-all): New function to do the work of scrolling other
Glenn Morris <rgm@gnu.org>
parents:
44731
diff
changeset
|
64 (scroll-all-function-all 'previous-line arg)) |
4ebf66bb8850
(scroll-all-function-all): New function to do the work of scrolling other
Glenn Morris <rgm@gnu.org>
parents:
44731
diff
changeset
|
65 |
4ebf66bb8850
(scroll-all-function-all): New function to do the work of scrolling other
Glenn Morris <rgm@gnu.org>
parents:
44731
diff
changeset
|
66 (defun scroll-all-page-down-all (arg) |
4ebf66bb8850
(scroll-all-function-all): New function to do the work of scrolling other
Glenn Morris <rgm@gnu.org>
parents:
44731
diff
changeset
|
67 "Page down in all visible windows." |
4ebf66bb8850
(scroll-all-function-all): New function to do the work of scrolling other
Glenn Morris <rgm@gnu.org>
parents:
44731
diff
changeset
|
68 (interactive "P") |
4ebf66bb8850
(scroll-all-function-all): New function to do the work of scrolling other
Glenn Morris <rgm@gnu.org>
parents:
44731
diff
changeset
|
69 (scroll-all-function-all 'scroll-up arg)) |
4ebf66bb8850
(scroll-all-function-all): New function to do the work of scrolling other
Glenn Morris <rgm@gnu.org>
parents:
44731
diff
changeset
|
70 |
17598
b3016633740a
Renamed from scroll-lock.el.
Richard M. Stallman <rms@gnu.org>
parents:
17597
diff
changeset
|
71 (defun scroll-all-page-up-all (arg) |
b3016633740a
Renamed from scroll-lock.el.
Richard M. Stallman <rms@gnu.org>
parents:
17597
diff
changeset
|
72 "Page up in all visible windows." |
17597 | 73 (interactive "P") |
44821
4ebf66bb8850
(scroll-all-function-all): New function to do the work of scrolling other
Glenn Morris <rgm@gnu.org>
parents:
44731
diff
changeset
|
74 (scroll-all-function-all 'scroll-down arg)) |
44722
c4139de15915
(scroll-all-page-down-all, scroll-all-page-up-all): Ignore the error if one
Glenn Morris <rgm@gnu.org>
parents:
44721
diff
changeset
|
75 |
c4139de15915
(scroll-all-page-down-all, scroll-all-page-up-all): Ignore the error if one
Glenn Morris <rgm@gnu.org>
parents:
44721
diff
changeset
|
76 (defun scroll-all-beginning-of-buffer-all (arg) |
c4139de15915
(scroll-all-page-down-all, scroll-all-page-up-all): Ignore the error if one
Glenn Morris <rgm@gnu.org>
parents:
44721
diff
changeset
|
77 "Go to the beginning of the buffer in all visible windows." |
c4139de15915
(scroll-all-page-down-all, scroll-all-page-up-all): Ignore the error if one
Glenn Morris <rgm@gnu.org>
parents:
44721
diff
changeset
|
78 (interactive "P") |
44821
4ebf66bb8850
(scroll-all-function-all): New function to do the work of scrolling other
Glenn Morris <rgm@gnu.org>
parents:
44731
diff
changeset
|
79 (scroll-all-function-all 'beginning-of-buffer arg)) |
44722
c4139de15915
(scroll-all-page-down-all, scroll-all-page-up-all): Ignore the error if one
Glenn Morris <rgm@gnu.org>
parents:
44721
diff
changeset
|
80 |
c4139de15915
(scroll-all-page-down-all, scroll-all-page-up-all): Ignore the error if one
Glenn Morris <rgm@gnu.org>
parents:
44721
diff
changeset
|
81 (defun scroll-all-end-of-buffer-all (arg) |
c4139de15915
(scroll-all-page-down-all, scroll-all-page-up-all): Ignore the error if one
Glenn Morris <rgm@gnu.org>
parents:
44721
diff
changeset
|
82 "Go to the end of the buffer in all visible windows." |
c4139de15915
(scroll-all-page-down-all, scroll-all-page-up-all): Ignore the error if one
Glenn Morris <rgm@gnu.org>
parents:
44721
diff
changeset
|
83 (interactive "P") |
44821
4ebf66bb8850
(scroll-all-function-all): New function to do the work of scrolling other
Glenn Morris <rgm@gnu.org>
parents:
44731
diff
changeset
|
84 (scroll-all-function-all 'end-of-buffer arg)) |
17597 | 85 |
86 | |
17598
b3016633740a
Renamed from scroll-lock.el.
Richard M. Stallman <rms@gnu.org>
parents:
17597
diff
changeset
|
87 (defun scroll-all-check-to-scroll () |
44721
193981425f19
(minor-mode-alist): `scroll-all-mode', not `scroll-all-mode-mode'.
Glenn Morris <rgm@gnu.org>
parents:
38436
diff
changeset
|
88 "Check `this-command' to see if a scroll is to be done." |
44731 | 89 (cond ((eq this-command 'next-line) |
90 (call-interactively 'scroll-all-scroll-down-all)) | |
91 ((eq this-command 'previous-line) | |
92 (call-interactively 'scroll-all-scroll-up-all)) | |
108489
aacdc5451940
* scroll-all.el (scroll-all-check-to-scroll):
Juri Linkov <juri@jurta.org>
parents:
106815
diff
changeset
|
93 ((memq this-command '(scroll-up scroll-up-command)) |
44731 | 94 (call-interactively 'scroll-all-page-down-all)) |
108489
aacdc5451940
* scroll-all.el (scroll-all-check-to-scroll):
Juri Linkov <juri@jurta.org>
parents:
106815
diff
changeset
|
95 ((memq this-command '(scroll-down scroll-down-command)) |
44731 | 96 (call-interactively 'scroll-all-page-up-all)) |
97 ((eq this-command 'beginning-of-buffer) | |
98 (call-interactively 'scroll-all-beginning-of-buffer-all)) | |
99 ((eq this-command 'end-of-buffer) | |
100 (call-interactively 'scroll-all-end-of-buffer-all)))) | |
49597
e88404e8f2cf
Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
48512
diff
changeset
|
101 |
17597 | 102 |
33422
c8f856ed18d0
(scroll-all-mode): Customize variable. Add
Dave Love <fx@gnu.org>
parents:
22388
diff
changeset
|
103 ;;;###autoload |
48510
05b26d360108
(scroll-all-mode): Move arg LIGHTER to the right place.
Markus Rost <rost@math.uni-bielefeld.de>
parents:
46862
diff
changeset
|
104 (define-minor-mode scroll-all-mode |
46731
9dd7d15bfb9a
(scroll-all-mode): Make argument optional. Add to doc string.
Glenn Morris <rgm@gnu.org>
parents:
46729
diff
changeset
|
105 "Toggle Scroll-All minor mode. |
9dd7d15bfb9a
(scroll-all-mode): Make argument optional. Add to doc string.
Glenn Morris <rgm@gnu.org>
parents:
46729
diff
changeset
|
106 With ARG, turn Scroll-All minor mode on if ARG is positive, off otherwise. |
9dd7d15bfb9a
(scroll-all-mode): Make argument optional. Add to doc string.
Glenn Morris <rgm@gnu.org>
parents:
46729
diff
changeset
|
107 When Scroll-All mode is on, scrolling commands entered in one window |
9dd7d15bfb9a
(scroll-all-mode): Make argument optional. Add to doc string.
Glenn Morris <rgm@gnu.org>
parents:
46729
diff
changeset
|
108 apply to all visible windows in the same frame." |
48510
05b26d360108
(scroll-all-mode): Move arg LIGHTER to the right place.
Markus Rost <rost@math.uni-bielefeld.de>
parents:
46862
diff
changeset
|
109 nil " *SL*" nil |
05b26d360108
(scroll-all-mode): Move arg LIGHTER to the right place.
Markus Rost <rost@math.uni-bielefeld.de>
parents:
46862
diff
changeset
|
110 :global t |
48512
3104e0249c5c
(scroll-all-mode): Add groups.
Markus Rost <rost@math.uni-bielefeld.de>
parents:
48510
diff
changeset
|
111 :group 'windows |
3104e0249c5c
(scroll-all-mode): Add groups.
Markus Rost <rost@math.uni-bielefeld.de>
parents:
48510
diff
changeset
|
112 :group 'scrolling |
46729
348e184769b0
(scroll-all-mode): Handle numeric arg. Use `if' instead of `cond'.
Glenn Morris <rgm@gnu.org>
parents:
44821
diff
changeset
|
113 (if scroll-all-mode |
348e184769b0
(scroll-all-mode): Handle numeric arg. Use `if' instead of `cond'.
Glenn Morris <rgm@gnu.org>
parents:
44821
diff
changeset
|
114 (add-hook 'post-command-hook 'scroll-all-check-to-scroll) |
348e184769b0
(scroll-all-mode): Handle numeric arg. Use `if' instead of `cond'.
Glenn Morris <rgm@gnu.org>
parents:
44821
diff
changeset
|
115 (remove-hook 'post-command-hook 'scroll-all-check-to-scroll))) |
17597 | 116 |
17598
b3016633740a
Renamed from scroll-lock.el.
Richard M. Stallman <rms@gnu.org>
parents:
17597
diff
changeset
|
117 (provide 'scroll-all) |
17597 | 118 |
93975
1e3a407766b9
Fix up comment convention on the arch-tag lines.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
79721
diff
changeset
|
119 ;; arch-tag: db20089a-b157-45df-b5d4-2430e60acdd8 |
38436
b174db545cfd
Some fixes to follow coding conventions.
Pavel Janík <Pavel@Janik.cz>
parents:
33422
diff
changeset
|
120 ;;; scroll-all.el ends here |