annotate lisp/gnus/legacy-gnus-agent.el @ 85055:0770b6970632

*** empty log message ***
author Glenn Morris <rgm@gnu.org>
date Sat, 06 Oct 2007 01:51:46 +0000
parents 24202b793a08
children 1cb31606209f a3c27999decb
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
74609
9a6adce29f04 Merge from gnus--rel--5.10
Miles Bader <miles@gnu.org>
parents: 63418
diff changeset
1 ;;; gnus-agent.el --- Legacy unplugged support for Gnus
9a6adce29f04 Merge from gnus--rel--5.10
Miles Bader <miles@gnu.org>
parents: 63418
diff changeset
2
75347
e3694f1cb928 Add 2007 to copyright years.
Glenn Morris <rgm@gnu.org>
parents: 74609
diff changeset
3 ;; Copyright (C) 2004, 2005, 2006, 2007 Free Software Foundation, Inc.
74609
9a6adce29f04 Merge from gnus--rel--5.10
Miles Bader <miles@gnu.org>
parents: 63418
diff changeset
4
9a6adce29f04 Merge from gnus--rel--5.10
Miles Bader <miles@gnu.org>
parents: 63418
diff changeset
5 ;; Author: Kevin Greiner <kgreiner@xpediantsolutions.com>
9a6adce29f04 Merge from gnus--rel--5.10
Miles Bader <miles@gnu.org>
parents: 63418
diff changeset
6 ;; Keywords: news
9a6adce29f04 Merge from gnus--rel--5.10
Miles Bader <miles@gnu.org>
parents: 63418
diff changeset
7
9a6adce29f04 Merge from gnus--rel--5.10
Miles Bader <miles@gnu.org>
parents: 63418
diff changeset
8 ;; This file is part of GNU Emacs.
9a6adce29f04 Merge from gnus--rel--5.10
Miles Bader <miles@gnu.org>
parents: 63418
diff changeset
9
9a6adce29f04 Merge from gnus--rel--5.10
Miles Bader <miles@gnu.org>
parents: 63418
diff changeset
10 ;; GNU Emacs is free software; you can redistribute it and/or modify
9a6adce29f04 Merge from gnus--rel--5.10
Miles Bader <miles@gnu.org>
parents: 63418
diff changeset
11 ;; it under the terms of the GNU General Public License as published by
78224
24202b793a08 Switch license to GPLv3 or later.
Glenn Morris <rgm@gnu.org>
parents: 75347
diff changeset
12 ;; the Free Software Foundation; either version 3, or (at your option)
74609
9a6adce29f04 Merge from gnus--rel--5.10
Miles Bader <miles@gnu.org>
parents: 63418
diff changeset
13 ;; any later version.
9a6adce29f04 Merge from gnus--rel--5.10
Miles Bader <miles@gnu.org>
parents: 63418
diff changeset
14
9a6adce29f04 Merge from gnus--rel--5.10
Miles Bader <miles@gnu.org>
parents: 63418
diff changeset
15 ;; GNU Emacs is distributed in the hope that it will be useful,
9a6adce29f04 Merge from gnus--rel--5.10
Miles Bader <miles@gnu.org>
parents: 63418
diff changeset
16 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
9a6adce29f04 Merge from gnus--rel--5.10
Miles Bader <miles@gnu.org>
parents: 63418
diff changeset
17 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
9a6adce29f04 Merge from gnus--rel--5.10
Miles Bader <miles@gnu.org>
parents: 63418
diff changeset
18 ;; GNU General Public License for more details.
9a6adce29f04 Merge from gnus--rel--5.10
Miles Bader <miles@gnu.org>
parents: 63418
diff changeset
19
9a6adce29f04 Merge from gnus--rel--5.10
Miles Bader <miles@gnu.org>
parents: 63418
diff changeset
20 ;; You should have received a copy of the GNU General Public License
9a6adce29f04 Merge from gnus--rel--5.10
Miles Bader <miles@gnu.org>
parents: 63418
diff changeset
21 ;; along with GNU Emacs; see the file COPYING. If not, write to the
9a6adce29f04 Merge from gnus--rel--5.10
Miles Bader <miles@gnu.org>
parents: 63418
diff changeset
22 ;; Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
9a6adce29f04 Merge from gnus--rel--5.10
Miles Bader <miles@gnu.org>
parents: 63418
diff changeset
23 ;; Boston, MA 02110-1301, USA.
9a6adce29f04 Merge from gnus--rel--5.10
Miles Bader <miles@gnu.org>
parents: 63418
diff changeset
24
9a6adce29f04 Merge from gnus--rel--5.10
Miles Bader <miles@gnu.org>
parents: 63418
diff changeset
25 ;;; Commentary:
9a6adce29f04 Merge from gnus--rel--5.10
Miles Bader <miles@gnu.org>
parents: 63418
diff changeset
26
9a6adce29f04 Merge from gnus--rel--5.10
Miles Bader <miles@gnu.org>
parents: 63418
diff changeset
27 ;; Conversion functions for the Agent.
9a6adce29f04 Merge from gnus--rel--5.10
Miles Bader <miles@gnu.org>
parents: 63418
diff changeset
28
9a6adce29f04 Merge from gnus--rel--5.10
Miles Bader <miles@gnu.org>
parents: 63418
diff changeset
29 ;;; Code:
57630
858ea3714664 Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-631
Miles Bader <miles@gnu.org>
parents:
diff changeset
30 (require 'gnus-start)
858ea3714664 Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-631
Miles Bader <miles@gnu.org>
parents:
diff changeset
31 (require 'gnus-util)
858ea3714664 Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-631
Miles Bader <miles@gnu.org>
parents:
diff changeset
32 (require 'gnus-range)
858ea3714664 Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-631
Miles Bader <miles@gnu.org>
parents:
diff changeset
33 (require 'gnus-agent)
858ea3714664 Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-631
Miles Bader <miles@gnu.org>
parents:
diff changeset
34
74609
9a6adce29f04 Merge from gnus--rel--5.10
Miles Bader <miles@gnu.org>
parents: 63418
diff changeset
35 ;; Oort Gnus v0.08 - This release updated agent to no longer use
9a6adce29f04 Merge from gnus--rel--5.10
Miles Bader <miles@gnu.org>
parents: 63418
diff changeset
36 ;; history file and to support a compressed alist.
57630
858ea3714664 Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-631
Miles Bader <miles@gnu.org>
parents:
diff changeset
37
858ea3714664 Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-631
Miles Bader <miles@gnu.org>
parents:
diff changeset
38 (defvar gnus-agent-compressed-agentview-search-only nil)
858ea3714664 Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-631
Miles Bader <miles@gnu.org>
parents:
diff changeset
39
858ea3714664 Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-631
Miles Bader <miles@gnu.org>
parents:
diff changeset
40 (defun gnus-agent-convert-to-compressed-agentview (converting-to)
858ea3714664 Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-631
Miles Bader <miles@gnu.org>
parents:
diff changeset
41 "Iterates over all agentview files to ensure that they have been
858ea3714664 Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-631
Miles Bader <miles@gnu.org>
parents:
diff changeset
42 converted to the compressed format."
858ea3714664 Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-631
Miles Bader <miles@gnu.org>
parents:
diff changeset
43
858ea3714664 Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-631
Miles Bader <miles@gnu.org>
parents:
diff changeset
44 (let ((search-in (list gnus-agent-directory))
858ea3714664 Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-631
Miles Bader <miles@gnu.org>
parents:
diff changeset
45 here
858ea3714664 Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-631
Miles Bader <miles@gnu.org>
parents:
diff changeset
46 members
858ea3714664 Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-631
Miles Bader <miles@gnu.org>
parents:
diff changeset
47 member
858ea3714664 Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-631
Miles Bader <miles@gnu.org>
parents:
diff changeset
48 converted-something)
858ea3714664 Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-631
Miles Bader <miles@gnu.org>
parents:
diff changeset
49 (while (setq here (pop search-in))
858ea3714664 Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-631
Miles Bader <miles@gnu.org>
parents:
diff changeset
50 (setq members (directory-files here t))
858ea3714664 Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-631
Miles Bader <miles@gnu.org>
parents:
diff changeset
51 (while (setq member (pop members))
858ea3714664 Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-631
Miles Bader <miles@gnu.org>
parents:
diff changeset
52 (cond ((string-match "/\\.\\.?$" member)
858ea3714664 Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-631
Miles Bader <miles@gnu.org>
parents:
diff changeset
53 nil)
858ea3714664 Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-631
Miles Bader <miles@gnu.org>
parents:
diff changeset
54 ((file-directory-p member)
858ea3714664 Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-631
Miles Bader <miles@gnu.org>
parents:
diff changeset
55 (push member search-in))
858ea3714664 Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-631
Miles Bader <miles@gnu.org>
parents:
diff changeset
56 ((equal (file-name-nondirectory member) ".agentview")
63418
80595c2e2d74 (gnus-agent-unlist-expire-days): Follow error conventions.
Juanma Barranquero <lekktu@gmail.com>
parents: 57630
diff changeset
57 (setq converted-something
57630
858ea3714664 Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-631
Miles Bader <miles@gnu.org>
parents:
diff changeset
58 (or (gnus-agent-convert-agentview member)
858ea3714664 Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-631
Miles Bader <miles@gnu.org>
parents:
diff changeset
59 converted-something))))))
858ea3714664 Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-631
Miles Bader <miles@gnu.org>
parents:
diff changeset
60
858ea3714664 Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-631
Miles Bader <miles@gnu.org>
parents:
diff changeset
61 (if converted-something
858ea3714664 Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-631
Miles Bader <miles@gnu.org>
parents:
diff changeset
62 (gnus-message 4 "Successfully converted Gnus %s offline (agent) files to %s" gnus-newsrc-file-version converting-to))))
858ea3714664 Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-631
Miles Bader <miles@gnu.org>
parents:
diff changeset
63
858ea3714664 Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-631
Miles Bader <miles@gnu.org>
parents:
diff changeset
64 (defun gnus-agent-convert-to-compressed-agentview-prompt ()
858ea3714664 Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-631
Miles Bader <miles@gnu.org>
parents:
diff changeset
65 (catch 'found-file-to-convert
858ea3714664 Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-631
Miles Bader <miles@gnu.org>
parents:
diff changeset
66 (let ((gnus-agent-compressed-agentview-search-only t))
858ea3714664 Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-631
Miles Bader <miles@gnu.org>
parents:
diff changeset
67 (gnus-agent-convert-to-compressed-agentview nil))))
858ea3714664 Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-631
Miles Bader <miles@gnu.org>
parents:
diff changeset
68
858ea3714664 Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-631
Miles Bader <miles@gnu.org>
parents:
diff changeset
69 (gnus-convert-mark-converter-prompt 'gnus-agent-convert-to-compressed-agentview 'gnus-agent-convert-to-compressed-agentview-prompt)
858ea3714664 Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-631
Miles Bader <miles@gnu.org>
parents:
diff changeset
70
858ea3714664 Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-631
Miles Bader <miles@gnu.org>
parents:
diff changeset
71 (defun gnus-agent-convert-agentview (file)
858ea3714664 Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-631
Miles Bader <miles@gnu.org>
parents:
diff changeset
72 "Load FILE and do a `read' there."
858ea3714664 Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-631
Miles Bader <miles@gnu.org>
parents:
diff changeset
73 (with-temp-buffer
858ea3714664 Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-631
Miles Bader <miles@gnu.org>
parents:
diff changeset
74 (nnheader-insert-file-contents file)
858ea3714664 Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-631
Miles Bader <miles@gnu.org>
parents:
diff changeset
75 (goto-char (point-min))
858ea3714664 Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-631
Miles Bader <miles@gnu.org>
parents:
diff changeset
76 (let ((inhibit-quit t)
858ea3714664 Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-631
Miles Bader <miles@gnu.org>
parents:
diff changeset
77 (alist (read (current-buffer)))
858ea3714664 Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-631
Miles Bader <miles@gnu.org>
parents:
diff changeset
78 (version (condition-case nil (read (current-buffer))
858ea3714664 Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-631
Miles Bader <miles@gnu.org>
parents:
diff changeset
79 (end-of-file 0)))
858ea3714664 Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-631
Miles Bader <miles@gnu.org>
parents:
diff changeset
80 changed-version
858ea3714664 Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-631
Miles Bader <miles@gnu.org>
parents:
diff changeset
81 history-file)
858ea3714664 Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-631
Miles Bader <miles@gnu.org>
parents:
diff changeset
82
858ea3714664 Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-631
Miles Bader <miles@gnu.org>
parents:
diff changeset
83 (cond
858ea3714664 Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-631
Miles Bader <miles@gnu.org>
parents:
diff changeset
84 ((= version 0)
858ea3714664 Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-631
Miles Bader <miles@gnu.org>
parents:
diff changeset
85 (let (entry
858ea3714664 Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-631
Miles Bader <miles@gnu.org>
parents:
diff changeset
86 (gnus-command-method nil))
858ea3714664 Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-631
Miles Bader <miles@gnu.org>
parents:
diff changeset
87 (mm-disable-multibyte) ;; everything is binary
858ea3714664 Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-631
Miles Bader <miles@gnu.org>
parents:
diff changeset
88 (erase-buffer)
858ea3714664 Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-631
Miles Bader <miles@gnu.org>
parents:
diff changeset
89 (insert "\n")
858ea3714664 Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-631
Miles Bader <miles@gnu.org>
parents:
diff changeset
90 (let ((file (concat (file-name-directory file) "/history")))
858ea3714664 Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-631
Miles Bader <miles@gnu.org>
parents:
diff changeset
91 (when (file-exists-p file)
858ea3714664 Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-631
Miles Bader <miles@gnu.org>
parents:
diff changeset
92 (nnheader-insert-file-contents file)
858ea3714664 Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-631
Miles Bader <miles@gnu.org>
parents:
diff changeset
93 (setq history-file file)))
858ea3714664 Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-631
Miles Bader <miles@gnu.org>
parents:
diff changeset
94
858ea3714664 Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-631
Miles Bader <miles@gnu.org>
parents:
diff changeset
95 (goto-char (point-min))
858ea3714664 Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-631
Miles Bader <miles@gnu.org>
parents:
diff changeset
96 (while (not (eobp))
858ea3714664 Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-631
Miles Bader <miles@gnu.org>
parents:
diff changeset
97 (if (and (looking-at
858ea3714664 Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-631
Miles Bader <miles@gnu.org>
parents:
diff changeset
98 "[^\t\n]+\t\\([0-9]+\\)\t\\([^ \n]+\\) \\([0-9]+\\)")
858ea3714664 Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-631
Miles Bader <miles@gnu.org>
parents:
diff changeset
99 (string= (gnus-agent-article-name ".agentview" (match-string 2))
858ea3714664 Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-631
Miles Bader <miles@gnu.org>
parents:
diff changeset
100 file)
858ea3714664 Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-631
Miles Bader <miles@gnu.org>
parents:
diff changeset
101 (setq entry (assoc (string-to-number (match-string 3)) alist)))
858ea3714664 Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-631
Miles Bader <miles@gnu.org>
parents:
diff changeset
102 (setcdr entry (string-to-number (match-string 1))))
858ea3714664 Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-631
Miles Bader <miles@gnu.org>
parents:
diff changeset
103 (forward-line 1))
858ea3714664 Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-631
Miles Bader <miles@gnu.org>
parents:
diff changeset
104 (setq changed-version t)))
858ea3714664 Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-631
Miles Bader <miles@gnu.org>
parents:
diff changeset
105 ((= version 1)
858ea3714664 Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-631
Miles Bader <miles@gnu.org>
parents:
diff changeset
106 (setq changed-version t)))
858ea3714664 Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-631
Miles Bader <miles@gnu.org>
parents:
diff changeset
107
858ea3714664 Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-631
Miles Bader <miles@gnu.org>
parents:
diff changeset
108 (when changed-version
858ea3714664 Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-631
Miles Bader <miles@gnu.org>
parents:
diff changeset
109 (when gnus-agent-compressed-agentview-search-only
858ea3714664 Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-631
Miles Bader <miles@gnu.org>
parents:
diff changeset
110 (throw 'found-file-to-convert t))
858ea3714664 Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-631
Miles Bader <miles@gnu.org>
parents:
diff changeset
111
858ea3714664 Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-631
Miles Bader <miles@gnu.org>
parents:
diff changeset
112 (erase-buffer)
858ea3714664 Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-631
Miles Bader <miles@gnu.org>
parents:
diff changeset
113 (let ((compressed nil))
858ea3714664 Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-631
Miles Bader <miles@gnu.org>
parents:
diff changeset
114 (mapcar (lambda (pair)
858ea3714664 Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-631
Miles Bader <miles@gnu.org>
parents:
diff changeset
115 (let* ((article-id (car pair))
858ea3714664 Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-631
Miles Bader <miles@gnu.org>
parents:
diff changeset
116 (day-of-download (cdr pair))
858ea3714664 Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-631
Miles Bader <miles@gnu.org>
parents:
diff changeset
117 (comp-list (assq day-of-download compressed)))
858ea3714664 Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-631
Miles Bader <miles@gnu.org>
parents:
diff changeset
118 (if comp-list
858ea3714664 Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-631
Miles Bader <miles@gnu.org>
parents:
diff changeset
119 (setcdr comp-list
858ea3714664 Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-631
Miles Bader <miles@gnu.org>
parents:
diff changeset
120 (cons article-id (cdr comp-list)))
858ea3714664 Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-631
Miles Bader <miles@gnu.org>
parents:
diff changeset
121 (setq compressed
858ea3714664 Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-631
Miles Bader <miles@gnu.org>
parents:
diff changeset
122 (cons (list day-of-download article-id)
858ea3714664 Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-631
Miles Bader <miles@gnu.org>
parents:
diff changeset
123 compressed)))
858ea3714664 Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-631
Miles Bader <miles@gnu.org>
parents:
diff changeset
124 nil)) alist)
858ea3714664 Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-631
Miles Bader <miles@gnu.org>
parents:
diff changeset
125 (mapcar (lambda (comp-list)
858ea3714664 Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-631
Miles Bader <miles@gnu.org>
parents:
diff changeset
126 (setcdr comp-list
858ea3714664 Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-631
Miles Bader <miles@gnu.org>
parents:
diff changeset
127 (gnus-compress-sequence
858ea3714664 Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-631
Miles Bader <miles@gnu.org>
parents:
diff changeset
128 (nreverse (cdr comp-list)))))
858ea3714664 Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-631
Miles Bader <miles@gnu.org>
parents:
diff changeset
129 compressed)
858ea3714664 Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-631
Miles Bader <miles@gnu.org>
parents:
diff changeset
130 (princ compressed (current-buffer)))
858ea3714664 Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-631
Miles Bader <miles@gnu.org>
parents:
diff changeset
131 (insert "\n2\n")
858ea3714664 Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-631
Miles Bader <miles@gnu.org>
parents:
diff changeset
132 (write-file file)
858ea3714664 Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-631
Miles Bader <miles@gnu.org>
parents:
diff changeset
133 (when history-file
858ea3714664 Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-631
Miles Bader <miles@gnu.org>
parents:
diff changeset
134 (delete-file history-file))
858ea3714664 Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-631
Miles Bader <miles@gnu.org>
parents:
diff changeset
135 t))))
858ea3714664 Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-631
Miles Bader <miles@gnu.org>
parents:
diff changeset
136
858ea3714664 Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-631
Miles Bader <miles@gnu.org>
parents:
diff changeset
137 ;; End of Oort Gnus v0.08 updates
858ea3714664 Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-631
Miles Bader <miles@gnu.org>
parents:
diff changeset
138
858ea3714664 Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-631
Miles Bader <miles@gnu.org>
parents:
diff changeset
139 ;; No Gnus v0.3 - This release provides a mechanism for upgrading gnus
858ea3714664 Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-631
Miles Bader <miles@gnu.org>
parents:
diff changeset
140 ;; from previous versions. Therefore, the previous
858ea3714664 Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-631
Miles Bader <miles@gnu.org>
parents:
diff changeset
141 ;; hacks to handle a gnus-agent-expire-days that
858ea3714664 Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-631
Miles Bader <miles@gnu.org>
parents:
diff changeset
142 ;; specifies a list of values can be removed.
858ea3714664 Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-631
Miles Bader <miles@gnu.org>
parents:
diff changeset
143
858ea3714664 Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-631
Miles Bader <miles@gnu.org>
parents:
diff changeset
144 (defun gnus-agent-unlist-expire-days (converting-to)
858ea3714664 Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-631
Miles Bader <miles@gnu.org>
parents:
diff changeset
145 (when (listp gnus-agent-expire-days)
858ea3714664 Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-631
Miles Bader <miles@gnu.org>
parents:
diff changeset
146 (let (buffer)
858ea3714664 Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-631
Miles Bader <miles@gnu.org>
parents:
diff changeset
147 (unwind-protect
858ea3714664 Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-631
Miles Bader <miles@gnu.org>
parents:
diff changeset
148 (save-window-excursion
858ea3714664 Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-631
Miles Bader <miles@gnu.org>
parents:
diff changeset
149 (setq buffer (gnus-get-buffer-create " *Gnus agent upgrade*"))
858ea3714664 Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-631
Miles Bader <miles@gnu.org>
parents:
diff changeset
150 (set-buffer buffer)
858ea3714664 Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-631
Miles Bader <miles@gnu.org>
parents:
diff changeset
151 (erase-buffer)
858ea3714664 Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-631
Miles Bader <miles@gnu.org>
parents:
diff changeset
152 (insert "The definition of gnus-agent-expire-days has been changed.\nYou currently have it set to the list:\n ")
858ea3714664 Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-631
Miles Bader <miles@gnu.org>
parents:
diff changeset
153 (gnus-pp gnus-agent-expire-days)
858ea3714664 Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-631
Miles Bader <miles@gnu.org>
parents:
diff changeset
154
858ea3714664 Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-631
Miles Bader <miles@gnu.org>
parents:
diff changeset
155 (insert "\nIn order to use version '" converting-to "' of gnus, you will need to set\n")
858ea3714664 Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-631
Miles Bader <miles@gnu.org>
parents:
diff changeset
156 (insert "gnus-agent-expire-days to an integer. If you still wish to set different\n")
858ea3714664 Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-631
Miles Bader <miles@gnu.org>
parents:
diff changeset
157 (insert "expiration days to individual groups, you must instead set the\n")
858ea3714664 Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-631
Miles Bader <miles@gnu.org>
parents:
diff changeset
158 (insert "'agent-days-until-old group and/or topic parameter.\n")
858ea3714664 Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-631
Miles Bader <miles@gnu.org>
parents:
diff changeset
159 (insert "\n")
858ea3714664 Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-631
Miles Bader <miles@gnu.org>
parents:
diff changeset
160 (insert "If you would like, gnus can iterate over every group comparing its name to the\n")
858ea3714664 Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-631
Miles Bader <miles@gnu.org>
parents:
diff changeset
161 (insert "regular expressions that you currently have in gnus-agent-expire-days. When\n")
858ea3714664 Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-631
Miles Bader <miles@gnu.org>
parents:
diff changeset
162 (insert "gnus finds a match, it will update that group's 'agent-days-until-old group\n")
858ea3714664 Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-631
Miles Bader <miles@gnu.org>
parents:
diff changeset
163 (insert "parameter to the value associated with the regular expression.\n")
858ea3714664 Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-631
Miles Bader <miles@gnu.org>
parents:
diff changeset
164 (insert "\n")
858ea3714664 Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-631
Miles Bader <miles@gnu.org>
parents:
diff changeset
165 (insert "Whether gnus assigns group parameters, or not, gnus will terminate with an\n")
858ea3714664 Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-631
Miles Bader <miles@gnu.org>
parents:
diff changeset
166 (insert "ERROR as soon as this function completes. The reason is that you must\n")
858ea3714664 Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-631
Miles Bader <miles@gnu.org>
parents:
diff changeset
167 (insert "manually edit your configuration to either not set gnus-agent-expire-days or\n")
858ea3714664 Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-631
Miles Bader <miles@gnu.org>
parents:
diff changeset
168 (insert "to set it to an integer before gnus can be used.\n")
858ea3714664 Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-631
Miles Bader <miles@gnu.org>
parents:
diff changeset
169 (insert "\n")
858ea3714664 Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-631
Miles Bader <miles@gnu.org>
parents:
diff changeset
170 (insert "Once you have successfully edited gnus-agent-expire-days, gnus will be able to\n")
858ea3714664 Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-631
Miles Bader <miles@gnu.org>
parents:
diff changeset
171 (insert "execute past this function.\n")
858ea3714664 Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-631
Miles Bader <miles@gnu.org>
parents:
diff changeset
172 (insert "\n")
858ea3714664 Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-631
Miles Bader <miles@gnu.org>
parents:
diff changeset
173 (insert "Should gnus use gnus-agent-expire-days to assign\n")
858ea3714664 Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-631
Miles Bader <miles@gnu.org>
parents:
diff changeset
174 (insert "agent-days-until-old parameters to individual groups? (Y/N)")
858ea3714664 Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-631
Miles Bader <miles@gnu.org>
parents:
diff changeset
175
858ea3714664 Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-631
Miles Bader <miles@gnu.org>
parents:
diff changeset
176 (switch-to-buffer buffer)
858ea3714664 Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-631
Miles Bader <miles@gnu.org>
parents:
diff changeset
177 (beep)
858ea3714664 Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-631
Miles Bader <miles@gnu.org>
parents:
diff changeset
178 (beep)
858ea3714664 Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-631
Miles Bader <miles@gnu.org>
parents:
diff changeset
179
858ea3714664 Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-631
Miles Bader <miles@gnu.org>
parents:
diff changeset
180 (let ((echo-keystrokes 0)
858ea3714664 Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-631
Miles Bader <miles@gnu.org>
parents:
diff changeset
181 c)
858ea3714664 Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-631
Miles Bader <miles@gnu.org>
parents:
diff changeset
182 (while (progn (setq c (read-char-exclusive))
858ea3714664 Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-631
Miles Bader <miles@gnu.org>
parents:
diff changeset
183 (cond ((or (eq c ?y) (eq c ?Y))
858ea3714664 Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-631
Miles Bader <miles@gnu.org>
parents:
diff changeset
184 (save-excursion
858ea3714664 Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-631
Miles Bader <miles@gnu.org>
parents:
diff changeset
185 (let ((groups (gnus-group-listed-groups)))
858ea3714664 Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-631
Miles Bader <miles@gnu.org>
parents:
diff changeset
186 (while groups
858ea3714664 Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-631
Miles Bader <miles@gnu.org>
parents:
diff changeset
187 (let* ((group (pop groups))
858ea3714664 Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-631
Miles Bader <miles@gnu.org>
parents:
diff changeset
188 (days gnus-agent-expire-days)
858ea3714664 Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-631
Miles Bader <miles@gnu.org>
parents:
diff changeset
189 (day (catch 'found
858ea3714664 Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-631
Miles Bader <miles@gnu.org>
parents:
diff changeset
190 (while days
858ea3714664 Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-631
Miles Bader <miles@gnu.org>
parents:
diff changeset
191 (when (eq 0 (string-match
858ea3714664 Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-631
Miles Bader <miles@gnu.org>
parents:
diff changeset
192 (caar days)
858ea3714664 Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-631
Miles Bader <miles@gnu.org>
parents:
diff changeset
193 group))
858ea3714664 Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-631
Miles Bader <miles@gnu.org>
parents:
diff changeset
194 (throw 'found (cadar days)))
858ea3714664 Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-631
Miles Bader <miles@gnu.org>
parents:
diff changeset
195 (setq days (cdr days)))
858ea3714664 Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-631
Miles Bader <miles@gnu.org>
parents:
diff changeset
196 nil)))
858ea3714664 Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-631
Miles Bader <miles@gnu.org>
parents:
diff changeset
197 (when day
858ea3714664 Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-631
Miles Bader <miles@gnu.org>
parents:
diff changeset
198 (gnus-group-set-parameter group 'agent-days-until-old
858ea3714664 Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-631
Miles Bader <miles@gnu.org>
parents:
diff changeset
199 day))))))
858ea3714664 Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-631
Miles Bader <miles@gnu.org>
parents:
diff changeset
200 nil
858ea3714664 Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-631
Miles Bader <miles@gnu.org>
parents:
diff changeset
201 )
858ea3714664 Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-631
Miles Bader <miles@gnu.org>
parents:
diff changeset
202 ((or (eq c ?n) (eq c ?N))
858ea3714664 Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-631
Miles Bader <miles@gnu.org>
parents:
diff changeset
203 nil)
858ea3714664 Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-631
Miles Bader <miles@gnu.org>
parents:
diff changeset
204 (t
858ea3714664 Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-631
Miles Bader <miles@gnu.org>
parents:
diff changeset
205 t))))))
858ea3714664 Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-631
Miles Bader <miles@gnu.org>
parents:
diff changeset
206 (kill-buffer buffer))
63418
80595c2e2d74 (gnus-agent-unlist-expire-days): Follow error conventions.
Juanma Barranquero <lekktu@gmail.com>
parents: 57630
diff changeset
207 (error "Change gnus-agent-expire-days to an integer for gnus to start"))))
57630
858ea3714664 Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-631
Miles Bader <miles@gnu.org>
parents:
diff changeset
208
858ea3714664 Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-631
Miles Bader <miles@gnu.org>
parents:
diff changeset
209 ;; The gnus-agent-unlist-expire-days has its own conversion prompt.
858ea3714664 Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-631
Miles Bader <miles@gnu.org>
parents:
diff changeset
210 ;; Therefore, hide the default prompt.
858ea3714664 Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-631
Miles Bader <miles@gnu.org>
parents:
diff changeset
211 (gnus-convert-mark-converter-prompt 'gnus-agent-unlist-expire-days t)
858ea3714664 Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-631
Miles Bader <miles@gnu.org>
parents:
diff changeset
212
858ea3714664 Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-631
Miles Bader <miles@gnu.org>
parents:
diff changeset
213 (defun gnus-agent-unhook-expire-days (converting-to)
858ea3714664 Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-631
Miles Bader <miles@gnu.org>
parents:
diff changeset
214 "Remove every lambda from gnus-group-prepare-hook that mention the
858ea3714664 Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-631
Miles Bader <miles@gnu.org>
parents:
diff changeset
215 symbol gnus-agent-do-once in their definition. This should NOT be
858ea3714664 Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-631
Miles Bader <miles@gnu.org>
parents:
diff changeset
216 necessary as gnus-agent.el no longer adds them. However, it is
858ea3714664 Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-631
Miles Bader <miles@gnu.org>
parents:
diff changeset
217 possible that the hook was persistently saved."
858ea3714664 Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-631
Miles Bader <miles@gnu.org>
parents:
diff changeset
218 (let ((h t)) ; iterate from bgn of hook
858ea3714664 Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-631
Miles Bader <miles@gnu.org>
parents:
diff changeset
219 (while h
858ea3714664 Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-631
Miles Bader <miles@gnu.org>
parents:
diff changeset
220 (let ((func (progn (when (eq h t)
858ea3714664 Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-631
Miles Bader <miles@gnu.org>
parents:
diff changeset
221 ;; init h to list of functions
858ea3714664 Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-631
Miles Bader <miles@gnu.org>
parents:
diff changeset
222 (setq h (cond ((listp gnus-group-prepare-hook)
858ea3714664 Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-631
Miles Bader <miles@gnu.org>
parents:
diff changeset
223 gnus-group-prepare-hook)
858ea3714664 Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-631
Miles Bader <miles@gnu.org>
parents:
diff changeset
224 ((boundp 'gnus-group-prepare-hook)
858ea3714664 Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-631
Miles Bader <miles@gnu.org>
parents:
diff changeset
225 (list gnus-group-prepare-hook)))))
858ea3714664 Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-631
Miles Bader <miles@gnu.org>
parents:
diff changeset
226 (pop h))))
858ea3714664 Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-631
Miles Bader <miles@gnu.org>
parents:
diff changeset
227
858ea3714664 Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-631
Miles Bader <miles@gnu.org>
parents:
diff changeset
228 (when (cond ((eq (type-of func) 'compiled-function)
858ea3714664 Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-631
Miles Bader <miles@gnu.org>
parents:
diff changeset
229 ;; Search def. of compiled function for gnus-agent-do-once string
63418
80595c2e2d74 (gnus-agent-unlist-expire-days): Follow error conventions.
Juanma Barranquero <lekktu@gmail.com>
parents: 57630
diff changeset
230 (let* (definition
80595c2e2d74 (gnus-agent-unlist-expire-days): Follow error conventions.
Juanma Barranquero <lekktu@gmail.com>
parents: 57630
diff changeset
231 print-level
57630
858ea3714664 Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-631
Miles Bader <miles@gnu.org>
parents:
diff changeset
232 print-length
858ea3714664 Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-631
Miles Bader <miles@gnu.org>
parents:
diff changeset
233 (standard-output
858ea3714664 Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-631
Miles Bader <miles@gnu.org>
parents:
diff changeset
234 (lambda (char)
858ea3714664 Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-631
Miles Bader <miles@gnu.org>
parents:
diff changeset
235 (setq definition (cons char definition)))))
858ea3714664 Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-631
Miles Bader <miles@gnu.org>
parents:
diff changeset
236 (princ func) ; populates definition with reversed list of characters
858ea3714664 Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-631
Miles Bader <miles@gnu.org>
parents:
diff changeset
237 (let* ((i (length definition))
858ea3714664 Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-631
Miles Bader <miles@gnu.org>
parents:
diff changeset
238 (s (make-string i 0)))
858ea3714664 Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-631
Miles Bader <miles@gnu.org>
parents:
diff changeset
239 (while definition
858ea3714664 Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-631
Miles Bader <miles@gnu.org>
parents:
diff changeset
240 (aset s (setq i (1- i)) (pop definition)))
858ea3714664 Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-631
Miles Bader <miles@gnu.org>
parents:
diff changeset
241
858ea3714664 Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-631
Miles Bader <miles@gnu.org>
parents:
diff changeset
242 (string-match "\\bgnus-agent-do-once\\b" s))))
858ea3714664 Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-631
Miles Bader <miles@gnu.org>
parents:
diff changeset
243 ((listp func)
858ea3714664 Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-631
Miles Bader <miles@gnu.org>
parents:
diff changeset
244 (eq (cadr (nth 2 func)) 'gnus-agent-do-once) ; handles eval'd lambda
858ea3714664 Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-631
Miles Bader <miles@gnu.org>
parents:
diff changeset
245 ))
858ea3714664 Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-631
Miles Bader <miles@gnu.org>
parents:
diff changeset
246
858ea3714664 Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-631
Miles Bader <miles@gnu.org>
parents:
diff changeset
247 (remove-hook 'gnus-group-prepare-hook func)
858ea3714664 Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-631
Miles Bader <miles@gnu.org>
parents:
diff changeset
248 ;; I don't what remove-hook is going to actually do to the
858ea3714664 Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-631
Miles Bader <miles@gnu.org>
parents:
diff changeset
249 ;; hook list so start over from the beginning.
858ea3714664 Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-631
Miles Bader <miles@gnu.org>
parents:
diff changeset
250 (setq h t))))))
858ea3714664 Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-631
Miles Bader <miles@gnu.org>
parents:
diff changeset
251
858ea3714664 Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-631
Miles Bader <miles@gnu.org>
parents:
diff changeset
252 ;; gnus-agent-unhook-expire-days is safe in that it does not modify
858ea3714664 Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-631
Miles Bader <miles@gnu.org>
parents:
diff changeset
253 ;; the .newsrc.eld file.
858ea3714664 Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-631
Miles Bader <miles@gnu.org>
parents:
diff changeset
254 (gnus-convert-mark-converter-prompt 'gnus-agent-unhook-expire-days t)
858ea3714664 Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-631
Miles Bader <miles@gnu.org>
parents:
diff changeset
255
74609
9a6adce29f04 Merge from gnus--rel--5.10
Miles Bader <miles@gnu.org>
parents: 63418
diff changeset
256 (provide 'legacy-gnus-agent)
9a6adce29f04 Merge from gnus--rel--5.10
Miles Bader <miles@gnu.org>
parents: 63418
diff changeset
257
9a6adce29f04 Merge from gnus--rel--5.10
Miles Bader <miles@gnu.org>
parents: 63418
diff changeset
258 ;; arch-tag: 845c7b8a-88f7-4468-b8d7-94e8fc72cf1a
9a6adce29f04 Merge from gnus--rel--5.10
Miles Bader <miles@gnu.org>
parents: 63418
diff changeset
259 ;;; legacy-gnus-agent.el ends here