annotate lisp/abbrevlist.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 a3e1f7134e6e
children 417b1e4d63cd
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
38412
253f761ad37b Some fixes to follow coding conventions in files maintained by FSF.
Pavel Janík <Pavel@Janik.cz>
parents: 14169
diff changeset
1 ;;; abbrevlist.el --- list one abbrev table alphabetically ordered
662
8a533acedb77 *** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 584
diff changeset
2
74439
ddcbd2c1b70d Update copyright years.
Glenn Morris <rgm@gnu.org>
parents: 69081
diff changeset
3 ;; Copyright (C) 1986, 1992, 2001, 2002, 2003, 2004,
106815
1d1d5d9bd884 Add 2010 to copyright years.
Glenn Morris <rgm@gnu.org>
parents: 100908
diff changeset
4 ;; 2005, 2006, 2007, 2008, 2009, 2010 Free Software Foundation, Inc.
170
b062439c29cd Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5 ;; Suggested by a previous version by Gildea.
2247
2c7997f249eb Add or correct keywords
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 845
diff changeset
6
845
213978acbc1e entered into RCS
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 807
diff changeset
7 ;; Maintainer: FSF
2247
2c7997f249eb Add or correct keywords
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 845
diff changeset
8 ;; Keywords: abbrev
110016
a3e1f7134e6e Add "Version:" and "Package:" Lisp file headers.
Chong Yidong <cyd@stupidchicken.com>
parents: 106815
diff changeset
9 ;; Package: emacs
170
b062439c29cd Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
10
b062439c29cd Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
11 ;; This file is part of GNU Emacs.
b062439c29cd Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
12
94678
ee5932bf781d Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents: 93975
diff changeset
13 ;; GNU Emacs is free software: you can redistribute it and/or modify
170
b062439c29cd Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
14 ;; 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
15 ;; 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
16 ;; (at your option) any later version.
170
b062439c29cd Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
17
b062439c29cd Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
18 ;; GNU Emacs is distributed in the hope that it will be useful,
b062439c29cd Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
19 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
b062439c29cd Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
20 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
b062439c29cd Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
21 ;; GNU General Public License for more details.
b062439c29cd Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
22
b062439c29cd Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
23 ;; 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
24 ;; along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>.
170
b062439c29cd Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
25
38412
253f761ad37b Some fixes to follow coding conventions in files maintained by FSF.
Pavel Janík <Pavel@Janik.cz>
parents: 14169
diff changeset
26 ;;; Commentary:
253f761ad37b Some fixes to follow coding conventions in files maintained by FSF.
Pavel Janík <Pavel@Janik.cz>
parents: 14169
diff changeset
27
807
4f28bd14272c *** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 777
diff changeset
28 ;;; Code:
170
b062439c29cd Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
29
69081
4ef3c75869eb (list-one-abbrev-table): Add autoload.
Richard M. Stallman <rms@gnu.org>
parents: 68651
diff changeset
30 ;;;###autoload
170
b062439c29cd Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
31 (defun list-one-abbrev-table (abbrev-table output-buffer)
b062439c29cd Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
32 "Display alphabetical listing of ABBREV-TABLE in buffer OUTPUT-BUFFER."
b062439c29cd Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
33 (with-output-to-temp-buffer output-buffer
b062439c29cd Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
34 (save-excursion
b062439c29cd Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
35 (let ((abbrev-list nil) (first-column 0))
b062439c29cd Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
36 (set-buffer standard-output)
42561
d0f023f30837 Remove unnecessary whitespace.
Pavel Janík <Pavel@Janik.cz>
parents: 38412
diff changeset
37 (mapatoms
170
b062439c29cd Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
38 (function (lambda (abbrev)
b062439c29cd Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
39 (setq abbrev-list (cons abbrev abbrev-list))))
b062439c29cd Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
40 abbrev-table)
b062439c29cd Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
41 (setq abbrev-list (sort abbrev-list 'string-lessp))
b062439c29cd Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
42 (while abbrev-list
54517
b4c64a995036 (list-one-abbrev-table): Use window-width instead of frame-width.
Juri Linkov <juri@jurta.org>
parents: 52401
diff changeset
43 (if (> (+ first-column 40) (window-width))
170
b062439c29cd Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
44 (progn
b062439c29cd Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
45 (insert "\n")
b062439c29cd Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
46 (setq first-column 0)))
b062439c29cd Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
47 (indent-to first-column)
b062439c29cd Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
48 (insert (symbol-name (car abbrev-list)))
b062439c29cd Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
49 (indent-to (+ first-column 8))
b062439c29cd Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
50 (insert (symbol-value (car abbrev-list)))
b062439c29cd Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
51 (setq first-column (+ first-column 40))
b062439c29cd Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
52 (setq abbrev-list (cdr abbrev-list)))))))
584
4cd7543be581 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 170
diff changeset
53
4cd7543be581 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 170
diff changeset
54 (provide 'abbrevlist)
4cd7543be581 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 170
diff changeset
55
93975
1e3a407766b9 Fix up comment convention on the arch-tag lines.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 79721
diff changeset
56 ;; arch-tag: 178f0638-6597-4c16-bcee-576c3d8e9217
662
8a533acedb77 *** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 584
diff changeset
57 ;;; abbrevlist.el ends here