Mercurial > emacs
annotate lisp/kermit.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 | 1d1d5d9bd884 |
children | 376148b31b5e |
rev | line source |
---|---|
38412
253f761ad37b
Some fixes to follow coding conventions in files maintained by FSF.
Pavel Janík <Pavel@Janik.cz>
parents:
18383
diff
changeset
|
1 ;;; kermit.el --- additions to shell mode for use with kermit |
792
45d748a65f24
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
744
diff
changeset
|
2 |
74442 | 3 ;; Copyright (C) 1988, 2001, 2002, 2003, 2004, 2005, |
106815 | 4 ;; 2006, 2007, 2008, 2009, 2010 Free Software Foundation, Inc. |
846
20674ae6bf52
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
807
diff
changeset
|
5 |
792
45d748a65f24
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
744
diff
changeset
|
6 ;; Author: Jeff Norden <jeff@colgate.csnet> |
17976 | 7 ;; Maintainer: FSF |
792
45d748a65f24
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
744
diff
changeset
|
8 ;; Created: 15 Feb 1988 |
2307
10e417efb12a
Added or corrected Commentary sections
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
923
diff
changeset
|
9 ;; Keywords: comm |
40 | 10 |
11 ;; This file is part of GNU Emacs. | |
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 |
40 | 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. |
40 | 17 |
18 ;; GNU Emacs is distributed in the hope that it will be useful, | |
19 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of | |
20 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the | |
21 ;; GNU General Public License for more details. | |
22 | |
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/>. |
40 | 25 |
2307
10e417efb12a
Added or corrected Commentary sections
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
923
diff
changeset
|
26 ;;; Commentary: |
40 | 27 |
28 ;; I'm not sure, but I think somebody asked about running kermit under shell | |
29 ;; mode a while ago. Anyway, here is some code that I find useful. The result | |
30 ;; is that I can log onto machines with primitive operating systems (VMS and | |
31 ;; ATT system V :-), and still have the features of shell-mode available for | |
32 ;; command history, etc. It's also handy to be able to run a file transfer in | |
33 ;; an emacs window. The transfer is in the "background", but you can also | |
34 ;; monitor or stop it easily. | |
35 | |
36 ;; The ^\ key is bound to a function for sending escape sequences to kermit, | |
37 ;; and ^C^Q can be used to send any control characters needed thru to the | |
38 ;; system you connect to. A more serious problem is that some brain-dead | |
39 ;; systems will not recognize a ^J as an end-of-line character. So LFD is | |
40 ;; bound to a new function which acts just like CR usually does in shell-mode, | |
3591
507f64624555
Apply typo patches from Paul Eggert.
Jim Blandy <jimb@redhat.com>
parents:
2307
diff
changeset
|
41 ;; but a ^M is sent as an end-of-line. Functions are also provided to swap the |
40 | 42 ;; bindings of CR and LFD. I've also included a filter which will clean out |
43 ;; any ^M's or ^@'s that get typed at you, but I don't really recommend it. | |
44 ;; There doesn't seem to be an acceptably fast way to do this via emacs-lisp. | |
45 ;; Invoking kermit by the command " kermit | tr -d '\015' " seems to work | |
46 ;; better (on my system anyway). | |
47 | |
48 ;; Here's how I've been using this setup. We have several machines connected | |
49 ;; thru a fairly stupid terminal switch. If I want to connect to unix system, | |
50 ;; then I use the LFD key to talk to the switch, and ignore any ^M's in the | |
51 ;; buffer, and do a " stty -echo nl " after I log in. Then the only real | |
3591
507f64624555
Apply typo patches from Paul Eggert.
Jim Blandy <jimb@redhat.com>
parents:
2307
diff
changeset
|
52 ;; difference from being in local shell-mode is that you need to type |
40 | 53 ;; ^C^Q^C to send an interrupt, and ^C^Q^Z for a stop signal, etc. (since ^C^C |
54 ;; just generates a local stop signal, which kermit ignores). | |
55 ;; To connect to a VMS system, I use a shell script to invoke kermit thru the | |
49597
e88404e8f2cf
Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
38412
diff
changeset
|
56 ;; tr filter, do "M-X kermit-send-cr", and then tell VMS that I'm on a |
2307
10e417efb12a
Added or corrected Commentary sections
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
923
diff
changeset
|
57 ;; half-duplex terminal. |
40 | 58 |
59 ;; Some caveats: | |
60 ;; 1) Kermit under shell mode is a real pain if you don't have pty's. I | |
61 ;; recently discovered this on our 3b2/400. When kermit can't find a tty, it | |
62 ;; assumes it is supposed to be in remote mode. So the simple command "kermit" | |
63 ;; won't work in shell mode on such a system. You can get around this by using | |
64 ;; the -c (connect) command line option, which means you also have to specify a | |
65 ;; line and baud on the command line, as in "kermit -l /dev/tty53 -b 9600 -c". | |
66 ;; However, this will cause kermit to exit when the connection is closed. So | |
67 ;; in order to do a file transfer, you have to think ahead and and add -r | |
68 ;; (receive) to the command line. This means that you can't use the server | |
69 ;; feature. The only fix I can see is to muck around with the source code for | |
3591
507f64624555
Apply typo patches from Paul Eggert.
Jim Blandy <jimb@redhat.com>
parents:
2307
diff
changeset
|
70 ;; kermit, although this probably wouldn't be too hard. What is needed is an |
40 | 71 ;; option to force kermit to be local, to use stdin and stdout for interactive |
72 ;; speech, and to forget about cbreak mode. | |
73 | |
74 ;; Please let me know if any bugs turn up. | |
75 ;; Feb 1988, Jeff Norden - jeff@colgate.csnet | |
76 | |
807
4f28bd14272c
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
792
diff
changeset
|
77 ;;; Code: |
4f28bd14272c
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
792
diff
changeset
|
78 |
792
45d748a65f24
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
744
diff
changeset
|
79 (require 'shell) |
45d748a65f24
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
744
diff
changeset
|
80 |
96533
b8d0e14809ff
(kermit-esc-char, kermit-clean-off): Doc fixes.
John Paul Wallington <jpw@pobox.com>
parents:
94678
diff
changeset
|
81 (defvar kermit-esc-char "\C-\\" "*Kermit's escape char.") |
40 | 82 |
83 (defun kermit-esc () | |
84 "For sending escape sequences to a kermit running in shell mode." | |
85 (interactive) | |
49597
e88404e8f2cf
Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
38412
diff
changeset
|
86 (process-send-string |
40 | 87 (get-buffer-process (current-buffer)) |
88 (concat kermit-esc-char (char-to-string (read-char))))) | |
89 | |
90 (defun kermit-send-char () | |
91 "Send an arbitrary character to a program in shell mode." | |
92 (interactive) | |
49597
e88404e8f2cf
Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
38412
diff
changeset
|
93 (process-send-string |
40 | 94 (get-buffer-process (current-buffer)) |
95 (char-to-string (read-char)))) | |
96 | |
97 (define-key shell-mode-map "\C-\\" 'kermit-esc) | |
98 (define-key shell-mode-map "\C-c\C-q" 'kermit-send-char) | |
99 ;; extra bindings for folks suffering form ^S/^Q braindamage: | |
100 (define-key shell-mode-map "\C-c\\" 'kermit-esc) | |
101 | |
102 (defun kermit-send-input-cr () | |
103 "Like \\[comint-send-input] but end the line with carriage-return." | |
104 (interactive) | |
923 | 105 (comint-send-input) |
106 (comint-send-string (get-buffer-process (current-buffer)) "\r")) | |
40 | 107 |
108 ;; This is backwards of what makes sense, but ... | |
109 (define-key shell-mode-map "\n" 'kermit-send-input-cr) | |
110 | |
111 (defun kermit-default-cr () | |
112 "Make RETURN end the line with carriage-return and LFD end it with a newline. | |
113 This is useful for talking to other systems on which carriage-return | |
114 is the normal way to end a line." | |
115 (interactive) | |
116 (define-key shell-mode-map "\r" 'kermit-send-input-cr) | |
117 (define-key shell-mode-map "\n" 'comint-send-input)) | |
118 | |
119 (defun kermit-default-nl () | |
120 "Make RETURN end the line with a newline char. This is the default state. | |
121 In this state, use LFD to send a line and end it with a carriage-return." | |
122 (interactive) | |
123 (define-key shell-mode-map "\n" 'kermit-send-input-cr) | |
124 (define-key shell-mode-map "\r" 'comint-send-input)) | |
125 | |
126 (defun kermit-clean-filter (proc str) | |
127 "Strip ^M and ^@ characters from process output." | |
128 (save-excursion | |
129 (let ((beg (process-mark proc))) | |
130 (set-buffer (process-buffer proc)) | |
131 (goto-char beg) | |
132 (insert-before-markers str) | |
923 | 133 (while (re-search-backward "[\r\C-a]+" beg t) |
40 | 134 (replace-match ""))))) |
135 | |
136 (defun kermit-clean-on () | |
923 | 137 "Delete all null characters and ^M's from the kermit output. |
40 | 138 Note that another (perhaps better) way to do this is to use the |
744
4c7627a869df
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
660
diff
changeset
|
139 command `kermit | tr -d '\\015''." |
40 | 140 (interactive) |
141 (set-process-filter (get-buffer-process (current-buffer)) | |
142 'kermit-clean-filter)) | |
143 | |
144 (defun kermit-clean-off () | |
96533
b8d0e14809ff
(kermit-esc-char, kermit-clean-off): Doc fixes.
John Paul Wallington <jpw@pobox.com>
parents:
94678
diff
changeset
|
145 "Cancel a previous `kermit-clean-on' command." |
40 | 146 (interactive) |
147 (set-process-filter (get-buffer-process (current-buffer)) nil)) | |
148 | |
18383 | 149 (provide 'kermit) |
150 | |
93975
1e3a407766b9
Fix up comment convention on the arch-tag lines.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
79721
diff
changeset
|
151 ;; arch-tag: 6633215d-6c47-4e66-9f27-16fba02a8dce |
792
45d748a65f24
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
744
diff
changeset
|
152 ;;; kermit.el ends here |