annotate oldXMenu/Destroy.c @ 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 5cc91198ffb2
children ef719132ddfa
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
76174
fec5e03aaf59 Remove FSF copyright since file does not differ significantly from X11
Glenn Morris <rgm@gnu.org>
parents: 75348
diff changeset
1 /* Copyright Massachusetts Institute of Technology 1985 */
fec5e03aaf59 Remove FSF copyright since file does not differ significantly from X11
Glenn Morris <rgm@gnu.org>
parents: 75348
diff changeset
2
25858
Dave Love <fx@gnu.org>
parents:
diff changeset
3 #include "copyright.h"
Dave Love <fx@gnu.org>
parents:
diff changeset
4
Dave Love <fx@gnu.org>
parents:
diff changeset
5
Dave Love <fx@gnu.org>
parents:
diff changeset
6 /*
Dave Love <fx@gnu.org>
parents:
diff changeset
7 * XMenu: MIT Project Athena, X Window system menu package
Dave Love <fx@gnu.org>
parents:
diff changeset
8 *
Dave Love <fx@gnu.org>
parents:
diff changeset
9 * XMenuDestroy - Free all resources associated with and XMenu.
Dave Love <fx@gnu.org>
parents:
diff changeset
10 *
Dave Love <fx@gnu.org>
parents:
diff changeset
11 * Author: Tony Della Fera, DEC
Dave Love <fx@gnu.org>
parents:
diff changeset
12 * August, 1985
Dave Love <fx@gnu.org>
parents:
diff changeset
13 *
Dave Love <fx@gnu.org>
parents:
diff changeset
14 */
Dave Love <fx@gnu.org>
parents:
diff changeset
15
Dave Love <fx@gnu.org>
parents:
diff changeset
16 #include "XMenuInt.h"
Dave Love <fx@gnu.org>
parents:
diff changeset
17
109124
5cc91198ffb2 Convert function definitions in oldXMenu to standard C.
Dan Nicolaescu <dann@ics.uci.edu>
parents: 76174
diff changeset
18 XMenuDestroy(Display *display, register XMenu *menu)
5cc91198ffb2 Convert function definitions in oldXMenu to standard C.
Dan Nicolaescu <dann@ics.uci.edu>
parents: 76174
diff changeset
19
5cc91198ffb2 Convert function definitions in oldXMenu to standard C.
Dan Nicolaescu <dann@ics.uci.edu>
parents: 76174
diff changeset
20 /* Menu object to destroy. */
25858
Dave Love <fx@gnu.org>
parents:
diff changeset
21 {
Dave Love <fx@gnu.org>
parents:
diff changeset
22 register XMPane *p_ptr; /* Pointer to the current pane. */
Dave Love <fx@gnu.org>
parents:
diff changeset
23 register XMPane *p_next; /* Pointer to the next pane. */
Dave Love <fx@gnu.org>
parents:
diff changeset
24 register XMSelect *s_ptr; /* Pointer to the current selection. */
Dave Love <fx@gnu.org>
parents:
diff changeset
25 register XMSelect *s_next; /* Pointer to the next selection. */
Dave Love <fx@gnu.org>
parents:
diff changeset
26
Dave Love <fx@gnu.org>
parents:
diff changeset
27 /*
Dave Love <fx@gnu.org>
parents:
diff changeset
28 * Destroy the selection and pane X windows and free
Dave Love <fx@gnu.org>
parents:
diff changeset
29 * their corresponding XMWindows.
Dave Love <fx@gnu.org>
parents:
diff changeset
30 */
Dave Love <fx@gnu.org>
parents:
diff changeset
31 for (
Dave Love <fx@gnu.org>
parents:
diff changeset
32 p_ptr = menu->p_list->next;
Dave Love <fx@gnu.org>
parents:
diff changeset
33 p_ptr != menu->p_list;
Dave Love <fx@gnu.org>
parents:
diff changeset
34 p_ptr = p_next
Dave Love <fx@gnu.org>
parents:
diff changeset
35 ) {
Dave Love <fx@gnu.org>
parents:
diff changeset
36 for (
Dave Love <fx@gnu.org>
parents:
diff changeset
37 s_ptr = p_ptr->s_list->next;
Dave Love <fx@gnu.org>
parents:
diff changeset
38 s_ptr != p_ptr->s_list;
Dave Love <fx@gnu.org>
parents:
diff changeset
39 s_ptr = s_next
Dave Love <fx@gnu.org>
parents:
diff changeset
40 ) {
Dave Love <fx@gnu.org>
parents:
diff changeset
41 s_next = s_ptr->next;
Dave Love <fx@gnu.org>
parents:
diff changeset
42 free(s_ptr);
Dave Love <fx@gnu.org>
parents:
diff changeset
43 }
Dave Love <fx@gnu.org>
parents:
diff changeset
44 if (p_ptr->window) {
Dave Love <fx@gnu.org>
parents:
diff changeset
45 XDestroySubwindows(display, p_ptr->window);
Dave Love <fx@gnu.org>
parents:
diff changeset
46 XDestroyWindow(display, p_ptr->window);
Dave Love <fx@gnu.org>
parents:
diff changeset
47 }
Dave Love <fx@gnu.org>
parents:
diff changeset
48 p_next = p_ptr->next;
Dave Love <fx@gnu.org>
parents:
diff changeset
49 free(p_ptr);
Dave Love <fx@gnu.org>
parents:
diff changeset
50 }
Dave Love <fx@gnu.org>
parents:
diff changeset
51
Dave Love <fx@gnu.org>
parents:
diff changeset
52 /*
Dave Love <fx@gnu.org>
parents:
diff changeset
53 * Destroy the association table.
Dave Love <fx@gnu.org>
parents:
diff changeset
54 */
Dave Love <fx@gnu.org>
parents:
diff changeset
55 XDestroyAssocTable(menu->assoc_tab);
Dave Love <fx@gnu.org>
parents:
diff changeset
56
Dave Love <fx@gnu.org>
parents:
diff changeset
57 /*
Dave Love <fx@gnu.org>
parents:
diff changeset
58 * Free the mouse cursor.
Dave Love <fx@gnu.org>
parents:
diff changeset
59 */
Dave Love <fx@gnu.org>
parents:
diff changeset
60 XFreeCursor(display, menu->mouse_cursor);
Dave Love <fx@gnu.org>
parents:
diff changeset
61
Dave Love <fx@gnu.org>
parents:
diff changeset
62 /*
Dave Love <fx@gnu.org>
parents:
diff changeset
63 * Free the fonts.
Dave Love <fx@gnu.org>
parents:
diff changeset
64 */
Dave Love <fx@gnu.org>
parents:
diff changeset
65 XFreeFont(display, menu->p_fnt_info);
Dave Love <fx@gnu.org>
parents:
diff changeset
66 XFreeFont(display, menu->s_fnt_info);
Dave Love <fx@gnu.org>
parents:
diff changeset
67
Dave Love <fx@gnu.org>
parents:
diff changeset
68 /*
Dave Love <fx@gnu.org>
parents:
diff changeset
69 * Free the pixmaps.
Dave Love <fx@gnu.org>
parents:
diff changeset
70 */
Dave Love <fx@gnu.org>
parents:
diff changeset
71 /* XFreePixmap(display, menu->p_bdr_pixmap);
Dave Love <fx@gnu.org>
parents:
diff changeset
72 XFreePixmap(display, menu->s_bdr_pixmap);
Dave Love <fx@gnu.org>
parents:
diff changeset
73 XFreePixmap(display, menu->p_frg_pixmap);
Dave Love <fx@gnu.org>
parents:
diff changeset
74 XFreePixmap(display, menu->s_frg_pixmap);
Dave Love <fx@gnu.org>
parents:
diff changeset
75 XFreePixmap(display, menu->bkgnd_pixmap); */
Dave Love <fx@gnu.org>
parents:
diff changeset
76 XFreePixmap(display, menu->inact_pixmap);
Dave Love <fx@gnu.org>
parents:
diff changeset
77
Dave Love <fx@gnu.org>
parents:
diff changeset
78 /*
Dave Love <fx@gnu.org>
parents:
diff changeset
79 * Free the color cells.
Dave Love <fx@gnu.org>
parents:
diff changeset
80 */
Dave Love <fx@gnu.org>
parents:
diff changeset
81 if ((menu->p_bdr_color != BlackPixel(display, DefaultScreen(display))) && (menu->p_bdr_color != WhitePixel(display, DefaultScreen(display))))
Dave Love <fx@gnu.org>
parents:
diff changeset
82 XFreeColors(
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 25858
diff changeset
83 display,
25858
Dave Love <fx@gnu.org>
parents:
diff changeset
84 DefaultColormap(display, DefaultScreen(display)),
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 25858
diff changeset
85 &menu->p_bdr_color,
25858
Dave Love <fx@gnu.org>
parents:
diff changeset
86 1, 0);
Dave Love <fx@gnu.org>
parents:
diff changeset
87 if ((menu->s_bdr_color != BlackPixel(display, DefaultScreen(display))) && (menu->s_bdr_color != WhitePixel(display, DefaultScreen(display))))
Dave Love <fx@gnu.org>
parents:
diff changeset
88 XFreeColors(
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 25858
diff changeset
89 display,
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 25858
diff changeset
90 DefaultColormap(display, DefaultScreen(display)),
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 25858
diff changeset
91 &menu->s_bdr_color,
25858
Dave Love <fx@gnu.org>
parents:
diff changeset
92 1, 0);
Dave Love <fx@gnu.org>
parents:
diff changeset
93 if ((menu->p_frg_color != BlackPixel(display, DefaultScreen(display))) && (menu->p_frg_color != WhitePixel(display, DefaultScreen(display))))
Dave Love <fx@gnu.org>
parents:
diff changeset
94 XFreeColors(
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 25858
diff changeset
95 display,
25858
Dave Love <fx@gnu.org>
parents:
diff changeset
96 DefaultColormap(display, DefaultScreen(display)),
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 25858
diff changeset
97 &menu->p_frg_color,
25858
Dave Love <fx@gnu.org>
parents:
diff changeset
98 1, 0);
Dave Love <fx@gnu.org>
parents:
diff changeset
99 if ((menu->s_frg_color != BlackPixel(display, DefaultScreen(display))) && (menu->s_frg_color != WhitePixel(display, DefaultScreen(display))))
Dave Love <fx@gnu.org>
parents:
diff changeset
100 XFreeColors(
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 25858
diff changeset
101 display,
25858
Dave Love <fx@gnu.org>
parents:
diff changeset
102 DefaultColormap(display, DefaultScreen(display)),
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 25858
diff changeset
103 &menu->s_frg_color,
25858
Dave Love <fx@gnu.org>
parents:
diff changeset
104 1, 0);
Dave Love <fx@gnu.org>
parents:
diff changeset
105 if ((menu->bkgnd_color != BlackPixel(display, DefaultScreen(display))) && (menu->bkgnd_color != WhitePixel(display, DefaultScreen(display))))
Dave Love <fx@gnu.org>
parents:
diff changeset
106 XFreeColors(
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 25858
diff changeset
107 display,
25858
Dave Love <fx@gnu.org>
parents:
diff changeset
108 DefaultColormap(display, DefaultScreen(display)),
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 25858
diff changeset
109 &menu->bkgnd_color,
25858
Dave Love <fx@gnu.org>
parents:
diff changeset
110 1, 0);
Dave Love <fx@gnu.org>
parents:
diff changeset
111
Dave Love <fx@gnu.org>
parents:
diff changeset
112 /*
Dave Love <fx@gnu.org>
parents:
diff changeset
113 * Free the XMenu.
Dave Love <fx@gnu.org>
parents:
diff changeset
114 */
Dave Love <fx@gnu.org>
parents:
diff changeset
115 free(menu);
Dave Love <fx@gnu.org>
parents:
diff changeset
116 }
52401
695cf19ef79e Add arch taglines
Miles Bader <miles@gnu.org>
parents: 49600
diff changeset
117
695cf19ef79e Add arch taglines
Miles Bader <miles@gnu.org>
parents: 49600
diff changeset
118 /* arch-tag: 44c9589f-5893-46fc-bc23-1b03a7f9c015
695cf19ef79e Add arch taglines
Miles Bader <miles@gnu.org>
parents: 49600
diff changeset
119 (do not change this comment) */