annotate lisp/gnus/gnus-sync.el @ 110170:5e7ec1dda5c0

gnus-html.el: Remove more white space before <pre_int> image spacers; Decode entities at the end. So that entities inside the tags don't mess up the rest of the "parsing".
author Katsumi Yamaoka <yamaoka@jpl.org>
date Sat, 04 Sep 2010 00:36:13 +0000
parents d06b7ff1ea84
children d2b45bb936b6
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
109766
af33651be88b add lisp/gnus/gnus-sync.el
Katsumi Yamaoka <yamaoka@jpl.org>
parents:
diff changeset
1 ;;; gnus-sync.el --- synchronization facility for Gnus
af33651be88b add lisp/gnus/gnus-sync.el
Katsumi Yamaoka <yamaoka@jpl.org>
parents:
diff changeset
2
109774
7a46ef068de4 * lisp/gnus/gnus-sync.el (gnus-sync): Fix defgroup version.
Glenn Morris <rgm@gnu.org>
parents: 109769
diff changeset
3 ;; Copyright (C) 2010 Free Software Foundation, Inc.
109766
af33651be88b add lisp/gnus/gnus-sync.el
Katsumi Yamaoka <yamaoka@jpl.org>
parents:
diff changeset
4
af33651be88b add lisp/gnus/gnus-sync.el
Katsumi Yamaoka <yamaoka@jpl.org>
parents:
diff changeset
5 ;; Author: Ted Zlatanov <tzz@lifelogs.com>
af33651be88b add lisp/gnus/gnus-sync.el
Katsumi Yamaoka <yamaoka@jpl.org>
parents:
diff changeset
6 ;; Keywords: news synchronization nntp nnrss
af33651be88b add lisp/gnus/gnus-sync.el
Katsumi Yamaoka <yamaoka@jpl.org>
parents:
diff changeset
7
af33651be88b add lisp/gnus/gnus-sync.el
Katsumi Yamaoka <yamaoka@jpl.org>
parents:
diff changeset
8 ;; This file is part of GNU Emacs.
af33651be88b add lisp/gnus/gnus-sync.el
Katsumi Yamaoka <yamaoka@jpl.org>
parents:
diff changeset
9
af33651be88b add lisp/gnus/gnus-sync.el
Katsumi Yamaoka <yamaoka@jpl.org>
parents:
diff changeset
10 ;; GNU Emacs is free software: you can redistribute it and/or modify
af33651be88b add lisp/gnus/gnus-sync.el
Katsumi Yamaoka <yamaoka@jpl.org>
parents:
diff changeset
11 ;; it under the terms of the GNU General Public License as published by
af33651be88b add lisp/gnus/gnus-sync.el
Katsumi Yamaoka <yamaoka@jpl.org>
parents:
diff changeset
12 ;; the Free Software Foundation, either version 3 of the License, or
af33651be88b add lisp/gnus/gnus-sync.el
Katsumi Yamaoka <yamaoka@jpl.org>
parents:
diff changeset
13 ;; (at your option) any later version.
af33651be88b add lisp/gnus/gnus-sync.el
Katsumi Yamaoka <yamaoka@jpl.org>
parents:
diff changeset
14
af33651be88b add lisp/gnus/gnus-sync.el
Katsumi Yamaoka <yamaoka@jpl.org>
parents:
diff changeset
15 ;; GNU Emacs is distributed in the hope that it will be useful,
af33651be88b add lisp/gnus/gnus-sync.el
Katsumi Yamaoka <yamaoka@jpl.org>
parents:
diff changeset
16 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
af33651be88b add lisp/gnus/gnus-sync.el
Katsumi Yamaoka <yamaoka@jpl.org>
parents:
diff changeset
17 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
af33651be88b add lisp/gnus/gnus-sync.el
Katsumi Yamaoka <yamaoka@jpl.org>
parents:
diff changeset
18 ;; GNU General Public License for more details.
af33651be88b add lisp/gnus/gnus-sync.el
Katsumi Yamaoka <yamaoka@jpl.org>
parents:
diff changeset
19
af33651be88b add lisp/gnus/gnus-sync.el
Katsumi Yamaoka <yamaoka@jpl.org>
parents:
diff changeset
20 ;; You should have received a copy of the GNU General Public License
af33651be88b add lisp/gnus/gnus-sync.el
Katsumi Yamaoka <yamaoka@jpl.org>
parents:
diff changeset
21 ;; along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>.
af33651be88b add lisp/gnus/gnus-sync.el
Katsumi Yamaoka <yamaoka@jpl.org>
parents:
diff changeset
22
af33651be88b add lisp/gnus/gnus-sync.el
Katsumi Yamaoka <yamaoka@jpl.org>
parents:
diff changeset
23 ;;; Commentary:
af33651be88b add lisp/gnus/gnus-sync.el
Katsumi Yamaoka <yamaoka@jpl.org>
parents:
diff changeset
24
af33651be88b add lisp/gnus/gnus-sync.el
Katsumi Yamaoka <yamaoka@jpl.org>
parents:
diff changeset
25 ;; This is the gnus-sync.el package.
af33651be88b add lisp/gnus/gnus-sync.el
Katsumi Yamaoka <yamaoka@jpl.org>
parents:
diff changeset
26
af33651be88b add lisp/gnus/gnus-sync.el
Katsumi Yamaoka <yamaoka@jpl.org>
parents:
diff changeset
27 ;; Put this in your startup file (~/.gnus.el for instance)
af33651be88b add lisp/gnus/gnus-sync.el
Katsumi Yamaoka <yamaoka@jpl.org>
parents:
diff changeset
28
109769
fe81389a263d Optimizations for gnus-sync.el.
Katsumi Yamaoka <yamaoka@jpl.org>
parents: 109768
diff changeset
29 ;; possibilities for gnus-sync-backend:
fe81389a263d Optimizations for gnus-sync.el.
Katsumi Yamaoka <yamaoka@jpl.org>
parents: 109768
diff changeset
30 ;; Tramp over SSH: /ssh:user@host:/path/to/filename
fe81389a263d Optimizations for gnus-sync.el.
Katsumi Yamaoka <yamaoka@jpl.org>
parents: 109768
diff changeset
31 ;; Tramp over IMAP: /imaps:user@yourhosthere.com:/INBOX.test/filename
fe81389a263d Optimizations for gnus-sync.el.
Katsumi Yamaoka <yamaoka@jpl.org>
parents: 109768
diff changeset
32 ;; ...or any other file Tramp and Emacs can handle...
fe81389a263d Optimizations for gnus-sync.el.
Katsumi Yamaoka <yamaoka@jpl.org>
parents: 109768
diff changeset
33
109777
729aca322fce Doc fixes and keep unknown groups.
Katsumi Yamaoka <yamaoka@jpl.org>
parents: 109774
diff changeset
34 ;; (setq gnus-sync-backend "/remote:/path.gpg" ; will use Tramp+EPA if loaded
109766
af33651be88b add lisp/gnus/gnus-sync.el
Katsumi Yamaoka <yamaoka@jpl.org>
parents:
diff changeset
35 ;; gnus-sync-global-vars `(gnus-newsrc-last-checked-date)
af33651be88b add lisp/gnus/gnus-sync.el
Katsumi Yamaoka <yamaoka@jpl.org>
parents:
diff changeset
36 ;; gnus-sync-newsrc-groups `("nntp" "nnrss")
109777
729aca322fce Doc fixes and keep unknown groups.
Katsumi Yamaoka <yamaoka@jpl.org>
parents: 109774
diff changeset
37 ;; gnus-sync-newsrc-offsets `(2 3))
109766
af33651be88b add lisp/gnus/gnus-sync.el
Katsumi Yamaoka <yamaoka@jpl.org>
parents:
diff changeset
38
af33651be88b add lisp/gnus/gnus-sync.el
Katsumi Yamaoka <yamaoka@jpl.org>
parents:
diff changeset
39 ;; TODO:
af33651be88b add lisp/gnus/gnus-sync.el
Katsumi Yamaoka <yamaoka@jpl.org>
parents:
diff changeset
40
af33651be88b add lisp/gnus/gnus-sync.el
Katsumi Yamaoka <yamaoka@jpl.org>
parents:
diff changeset
41 ;; - after gnus-sync-read, the message counts are wrong
af33651be88b add lisp/gnus/gnus-sync.el
Katsumi Yamaoka <yamaoka@jpl.org>
parents:
diff changeset
42
af33651be88b add lisp/gnus/gnus-sync.el
Katsumi Yamaoka <yamaoka@jpl.org>
parents:
diff changeset
43 ;;; Code:
af33651be88b add lisp/gnus/gnus-sync.el
Katsumi Yamaoka <yamaoka@jpl.org>
parents:
diff changeset
44
af33651be88b add lisp/gnus/gnus-sync.el
Katsumi Yamaoka <yamaoka@jpl.org>
parents:
diff changeset
45 (eval-when-compile (require 'cl))
109811
d06b7ff1ea84 Silence more Gnus compiler warnings.
Glenn Morris <rgm@gnu.org>
parents: 109783
diff changeset
46 (require 'gnus)
d06b7ff1ea84 Silence more Gnus compiler warnings.
Glenn Morris <rgm@gnu.org>
parents: 109783
diff changeset
47 (require 'gnus-start)
109766
af33651be88b add lisp/gnus/gnus-sync.el
Katsumi Yamaoka <yamaoka@jpl.org>
parents:
diff changeset
48 (require 'gnus-util)
af33651be88b add lisp/gnus/gnus-sync.el
Katsumi Yamaoka <yamaoka@jpl.org>
parents:
diff changeset
49
af33651be88b add lisp/gnus/gnus-sync.el
Katsumi Yamaoka <yamaoka@jpl.org>
parents:
diff changeset
50 (defgroup gnus-sync nil
af33651be88b add lisp/gnus/gnus-sync.el
Katsumi Yamaoka <yamaoka@jpl.org>
parents:
diff changeset
51 "The Gnus synchronization facility."
109774
7a46ef068de4 * lisp/gnus/gnus-sync.el (gnus-sync): Fix defgroup version.
Glenn Morris <rgm@gnu.org>
parents: 109769
diff changeset
52 :version "24.1"
109766
af33651be88b add lisp/gnus/gnus-sync.el
Katsumi Yamaoka <yamaoka@jpl.org>
parents:
diff changeset
53 :group 'gnus)
af33651be88b add lisp/gnus/gnus-sync.el
Katsumi Yamaoka <yamaoka@jpl.org>
parents:
diff changeset
54
af33651be88b add lisp/gnus/gnus-sync.el
Katsumi Yamaoka <yamaoka@jpl.org>
parents:
diff changeset
55 (defcustom gnus-sync-newsrc-groups `("nntp" "nnrss")
af33651be88b add lisp/gnus/gnus-sync.el
Katsumi Yamaoka <yamaoka@jpl.org>
parents:
diff changeset
56 "List of groups to be synchronized in the gnus-newsrc-alist.
af33651be88b add lisp/gnus/gnus-sync.el
Katsumi Yamaoka <yamaoka@jpl.org>
parents:
diff changeset
57 The group names are matched, they don't have to be fully
af33651be88b add lisp/gnus/gnus-sync.el
Katsumi Yamaoka <yamaoka@jpl.org>
parents:
diff changeset
58 qualified. Typically you would choose all of these. That's the
af33651be88b add lisp/gnus/gnus-sync.el
Katsumi Yamaoka <yamaoka@jpl.org>
parents:
diff changeset
59 default because there is no active sync backend by default, so
af33651be88b add lisp/gnus/gnus-sync.el
Katsumi Yamaoka <yamaoka@jpl.org>
parents:
diff changeset
60 this setting is harmless until the user chooses a sync backend."
af33651be88b add lisp/gnus/gnus-sync.el
Katsumi Yamaoka <yamaoka@jpl.org>
parents:
diff changeset
61 :group 'gnus-sync
af33651be88b add lisp/gnus/gnus-sync.el
Katsumi Yamaoka <yamaoka@jpl.org>
parents:
diff changeset
62 :type '(repeat regexp))
af33651be88b add lisp/gnus/gnus-sync.el
Katsumi Yamaoka <yamaoka@jpl.org>
parents:
diff changeset
63
af33651be88b add lisp/gnus/gnus-sync.el
Katsumi Yamaoka <yamaoka@jpl.org>
parents:
diff changeset
64 (defcustom gnus-sync-newsrc-offsets '(2 3)
af33651be88b add lisp/gnus/gnus-sync.el
Katsumi Yamaoka <yamaoka@jpl.org>
parents:
diff changeset
65 "List of per-group data to be synchronized."
af33651be88b add lisp/gnus/gnus-sync.el
Katsumi Yamaoka <yamaoka@jpl.org>
parents:
diff changeset
66 :group 'gnus-sync
af33651be88b add lisp/gnus/gnus-sync.el
Katsumi Yamaoka <yamaoka@jpl.org>
parents:
diff changeset
67 :type '(set (const :tag "Read ranges" 2)
af33651be88b add lisp/gnus/gnus-sync.el
Katsumi Yamaoka <yamaoka@jpl.org>
parents:
diff changeset
68 (const :tag "Marks" 3)))
af33651be88b add lisp/gnus/gnus-sync.el
Katsumi Yamaoka <yamaoka@jpl.org>
parents:
diff changeset
69
af33651be88b add lisp/gnus/gnus-sync.el
Katsumi Yamaoka <yamaoka@jpl.org>
parents:
diff changeset
70 (defcustom gnus-sync-global-vars nil
af33651be88b add lisp/gnus/gnus-sync.el
Katsumi Yamaoka <yamaoka@jpl.org>
parents:
diff changeset
71 "List of global variables to be synchronized.
af33651be88b add lisp/gnus/gnus-sync.el
Katsumi Yamaoka <yamaoka@jpl.org>
parents:
diff changeset
72 You may want to sync `gnus-newsrc-last-checked-date' but pretty
af33651be88b add lisp/gnus/gnus-sync.el
Katsumi Yamaoka <yamaoka@jpl.org>
parents:
diff changeset
73 much any symbol is fair game. You could additionally sync
af33651be88b add lisp/gnus/gnus-sync.el
Katsumi Yamaoka <yamaoka@jpl.org>
parents:
diff changeset
74 `gnus-newsrc-alist', `gnus-server-alist', `gnus-topic-topology',
af33651be88b add lisp/gnus/gnus-sync.el
Katsumi Yamaoka <yamaoka@jpl.org>
parents:
diff changeset
75 and `gnus-topic-alist' to cover all the variables in
af33651be88b add lisp/gnus/gnus-sync.el
Katsumi Yamaoka <yamaoka@jpl.org>
parents:
diff changeset
76 newsrc.eld (except for `gnus-format-specs' which should not be
af33651be88b add lisp/gnus/gnus-sync.el
Katsumi Yamaoka <yamaoka@jpl.org>
parents:
diff changeset
77 synchronized, I believe). Also see `gnus-variable-list'."
af33651be88b add lisp/gnus/gnus-sync.el
Katsumi Yamaoka <yamaoka@jpl.org>
parents:
diff changeset
78 :group 'gnus-sync
af33651be88b add lisp/gnus/gnus-sync.el
Katsumi Yamaoka <yamaoka@jpl.org>
parents:
diff changeset
79 :type '(repeat (choice (variable :tag "A known variable")
af33651be88b add lisp/gnus/gnus-sync.el
Katsumi Yamaoka <yamaoka@jpl.org>
parents:
diff changeset
80 (symbol :tag "Any symbol"))))
af33651be88b add lisp/gnus/gnus-sync.el
Katsumi Yamaoka <yamaoka@jpl.org>
parents:
diff changeset
81
af33651be88b add lisp/gnus/gnus-sync.el
Katsumi Yamaoka <yamaoka@jpl.org>
parents:
diff changeset
82 (defcustom gnus-sync-backend nil
af33651be88b add lisp/gnus/gnus-sync.el
Katsumi Yamaoka <yamaoka@jpl.org>
parents:
diff changeset
83 "The synchronization backend."
af33651be88b add lisp/gnus/gnus-sync.el
Katsumi Yamaoka <yamaoka@jpl.org>
parents:
diff changeset
84 :group 'gnus-sync
af33651be88b add lisp/gnus/gnus-sync.el
Katsumi Yamaoka <yamaoka@jpl.org>
parents:
diff changeset
85 :type '(radio (const :format "None" nil)
af33651be88b add lisp/gnus/gnus-sync.el
Katsumi Yamaoka <yamaoka@jpl.org>
parents:
diff changeset
86 (string :tag "Sync to a file")))
af33651be88b add lisp/gnus/gnus-sync.el
Katsumi Yamaoka <yamaoka@jpl.org>
parents:
diff changeset
87
af33651be88b add lisp/gnus/gnus-sync.el
Katsumi Yamaoka <yamaoka@jpl.org>
parents:
diff changeset
88 (defvar gnus-sync-newsrc-loader nil
af33651be88b add lisp/gnus/gnus-sync.el
Katsumi Yamaoka <yamaoka@jpl.org>
parents:
diff changeset
89 "Carrier for newsrc data")
af33651be88b add lisp/gnus/gnus-sync.el
Katsumi Yamaoka <yamaoka@jpl.org>
parents:
diff changeset
90
af33651be88b add lisp/gnus/gnus-sync.el
Katsumi Yamaoka <yamaoka@jpl.org>
parents:
diff changeset
91 (defun gnus-sync-save ()
af33651be88b add lisp/gnus/gnus-sync.el
Katsumi Yamaoka <yamaoka@jpl.org>
parents:
diff changeset
92 "Save the Gnus sync data to the backend."
af33651be88b add lisp/gnus/gnus-sync.el
Katsumi Yamaoka <yamaoka@jpl.org>
parents:
diff changeset
93 (interactive)
af33651be88b add lisp/gnus/gnus-sync.el
Katsumi Yamaoka <yamaoka@jpl.org>
parents:
diff changeset
94 (cond
af33651be88b add lisp/gnus/gnus-sync.el
Katsumi Yamaoka <yamaoka@jpl.org>
parents:
diff changeset
95 ((stringp gnus-sync-backend)
af33651be88b add lisp/gnus/gnus-sync.el
Katsumi Yamaoka <yamaoka@jpl.org>
parents:
diff changeset
96 (gnus-message 7 "gnus-sync: saving to backend %s" gnus-sync-backend)
af33651be88b add lisp/gnus/gnus-sync.el
Katsumi Yamaoka <yamaoka@jpl.org>
parents:
diff changeset
97 ;; populate gnus-sync-newsrc-loader from all but the first dummy
af33651be88b add lisp/gnus/gnus-sync.el
Katsumi Yamaoka <yamaoka@jpl.org>
parents:
diff changeset
98 ;; entry in gnus-newsrc-alist whose group matches any of the
af33651be88b add lisp/gnus/gnus-sync.el
Katsumi Yamaoka <yamaoka@jpl.org>
parents:
diff changeset
99 ;; gnus-sync-newsrc-groups
109783
43f98127e0f3 Typo fix "hoo4a" -> "hook".
Katsumi Yamaoka <yamaoka@jpl.org>
parents: 109778
diff changeset
100 ;; TODO: keep the old contents for groups we don't have!
43f98127e0f3 Typo fix "hoo4a" -> "hook".
Katsumi Yamaoka <yamaoka@jpl.org>
parents: 109778
diff changeset
101 (let ((gnus-sync-newsrc-loader
43f98127e0f3 Typo fix "hoo4a" -> "hook".
Katsumi Yamaoka <yamaoka@jpl.org>
parents: 109778
diff changeset
102 (loop for entry in (cdr gnus-newsrc-alist)
43f98127e0f3 Typo fix "hoo4a" -> "hook".
Katsumi Yamaoka <yamaoka@jpl.org>
parents: 109778
diff changeset
103 when (gnus-grep-in-list
43f98127e0f3 Typo fix "hoo4a" -> "hook".
Katsumi Yamaoka <yamaoka@jpl.org>
parents: 109778
diff changeset
104 (car entry) ;the group name
43f98127e0f3 Typo fix "hoo4a" -> "hook".
Katsumi Yamaoka <yamaoka@jpl.org>
parents: 109778
diff changeset
105 gnus-sync-newsrc-groups)
43f98127e0f3 Typo fix "hoo4a" -> "hook".
Katsumi Yamaoka <yamaoka@jpl.org>
parents: 109778
diff changeset
106 collect (cons (car entry)
43f98127e0f3 Typo fix "hoo4a" -> "hook".
Katsumi Yamaoka <yamaoka@jpl.org>
parents: 109778
diff changeset
107 (mapcar (lambda (offset)
43f98127e0f3 Typo fix "hoo4a" -> "hook".
Katsumi Yamaoka <yamaoka@jpl.org>
parents: 109778
diff changeset
108 (cons offset (nth offset entry)))
43f98127e0f3 Typo fix "hoo4a" -> "hook".
Katsumi Yamaoka <yamaoka@jpl.org>
parents: 109778
diff changeset
109 gnus-sync-newsrc-offsets)))))
109766
af33651be88b add lisp/gnus/gnus-sync.el
Katsumi Yamaoka <yamaoka@jpl.org>
parents:
diff changeset
110 (with-temp-file gnus-sync-backend
af33651be88b add lisp/gnus/gnus-sync.el
Katsumi Yamaoka <yamaoka@jpl.org>
parents:
diff changeset
111 (progn
af33651be88b add lisp/gnus/gnus-sync.el
Katsumi Yamaoka <yamaoka@jpl.org>
parents:
diff changeset
112 (let ((coding-system-for-write gnus-ding-file-coding-system)
af33651be88b add lisp/gnus/gnus-sync.el
Katsumi Yamaoka <yamaoka@jpl.org>
parents:
diff changeset
113 (standard-output (current-buffer)))
af33651be88b add lisp/gnus/gnus-sync.el
Katsumi Yamaoka <yamaoka@jpl.org>
parents:
diff changeset
114 (princ (format ";; -*- mode:emacs-lisp; coding: %s; -*-\n"
af33651be88b add lisp/gnus/gnus-sync.el
Katsumi Yamaoka <yamaoka@jpl.org>
parents:
diff changeset
115 gnus-ding-file-coding-system))
af33651be88b add lisp/gnus/gnus-sync.el
Katsumi Yamaoka <yamaoka@jpl.org>
parents:
diff changeset
116 (princ ";; Gnus sync data v. 0.0.1\n")
af33651be88b add lisp/gnus/gnus-sync.el
Katsumi Yamaoka <yamaoka@jpl.org>
parents:
diff changeset
117 (let* ((print-quoted t)
af33651be88b add lisp/gnus/gnus-sync.el
Katsumi Yamaoka <yamaoka@jpl.org>
parents:
diff changeset
118 (print-readably t)
af33651be88b add lisp/gnus/gnus-sync.el
Katsumi Yamaoka <yamaoka@jpl.org>
parents:
diff changeset
119 (print-escape-multibyte nil)
af33651be88b add lisp/gnus/gnus-sync.el
Katsumi Yamaoka <yamaoka@jpl.org>
parents:
diff changeset
120 (print-escape-nonascii t)
af33651be88b add lisp/gnus/gnus-sync.el
Katsumi Yamaoka <yamaoka@jpl.org>
parents:
diff changeset
121 (print-length nil)
af33651be88b add lisp/gnus/gnus-sync.el
Katsumi Yamaoka <yamaoka@jpl.org>
parents:
diff changeset
122 (print-level nil)
af33651be88b add lisp/gnus/gnus-sync.el
Katsumi Yamaoka <yamaoka@jpl.org>
parents:
diff changeset
123 (print-circle nil)
af33651be88b add lisp/gnus/gnus-sync.el
Katsumi Yamaoka <yamaoka@jpl.org>
parents:
diff changeset
124 (print-escape-newlines t)
af33651be88b add lisp/gnus/gnus-sync.el
Katsumi Yamaoka <yamaoka@jpl.org>
parents:
diff changeset
125 (variables (cons 'gnus-sync-newsrc-loader
109767
f7cd57edb2ca Minor bug fixes for gnus-sync.el.
Katsumi Yamaoka <yamaoka@jpl.org>
parents: 109766
diff changeset
126 gnus-sync-global-vars))
f7cd57edb2ca Minor bug fixes for gnus-sync.el.
Katsumi Yamaoka <yamaoka@jpl.org>
parents: 109766
diff changeset
127 variable)
109766
af33651be88b add lisp/gnus/gnus-sync.el
Katsumi Yamaoka <yamaoka@jpl.org>
parents:
diff changeset
128 (while variables
109778
e253995f955c Ammended for bug fix on the loader nunion.
Katsumi Yamaoka <yamaoka@jpl.org>
parents: 109777
diff changeset
129 (if (and (boundp (setq variable (pop variables)))
109766
af33651be88b add lisp/gnus/gnus-sync.el
Katsumi Yamaoka <yamaoka@jpl.org>
parents:
diff changeset
130 (symbol-value variable))
109778
e253995f955c Ammended for bug fix on the loader nunion.
Katsumi Yamaoka <yamaoka@jpl.org>
parents: 109777
diff changeset
131 (progn
e253995f955c Ammended for bug fix on the loader nunion.
Katsumi Yamaoka <yamaoka@jpl.org>
parents: 109777
diff changeset
132 (princ "\n(setq ")
e253995f955c Ammended for bug fix on the loader nunion.
Katsumi Yamaoka <yamaoka@jpl.org>
parents: 109777
diff changeset
133 (princ (symbol-name variable))
e253995f955c Ammended for bug fix on the loader nunion.
Katsumi Yamaoka <yamaoka@jpl.org>
parents: 109777
diff changeset
134 (princ " '")
e253995f955c Ammended for bug fix on the loader nunion.
Katsumi Yamaoka <yamaoka@jpl.org>
parents: 109777
diff changeset
135 (prin1 (symbol-value variable))
e253995f955c Ammended for bug fix on the loader nunion.
Katsumi Yamaoka <yamaoka@jpl.org>
parents: 109777
diff changeset
136 (princ ")\n"))
e253995f955c Ammended for bug fix on the loader nunion.
Katsumi Yamaoka <yamaoka@jpl.org>
parents: 109777
diff changeset
137 (princ "\n;;; skipping empty variable ")
e253995f955c Ammended for bug fix on the loader nunion.
Katsumi Yamaoka <yamaoka@jpl.org>
parents: 109777
diff changeset
138 (princ (symbol-name variable)))))
109766
af33651be88b add lisp/gnus/gnus-sync.el
Katsumi Yamaoka <yamaoka@jpl.org>
parents:
diff changeset
139 (gnus-message
af33651be88b add lisp/gnus/gnus-sync.el
Katsumi Yamaoka <yamaoka@jpl.org>
parents:
diff changeset
140 7
af33651be88b add lisp/gnus/gnus-sync.el
Katsumi Yamaoka <yamaoka@jpl.org>
parents:
diff changeset
141 "gnus-sync: stored variables %s and %d groups in %s"
af33651be88b add lisp/gnus/gnus-sync.el
Katsumi Yamaoka <yamaoka@jpl.org>
parents:
diff changeset
142 gnus-sync-global-vars
af33651be88b add lisp/gnus/gnus-sync.el
Katsumi Yamaoka <yamaoka@jpl.org>
parents:
diff changeset
143 (length gnus-sync-newsrc-loader)
af33651be88b add lisp/gnus/gnus-sync.el
Katsumi Yamaoka <yamaoka@jpl.org>
parents:
diff changeset
144 gnus-sync-backend)
af33651be88b add lisp/gnus/gnus-sync.el
Katsumi Yamaoka <yamaoka@jpl.org>
parents:
diff changeset
145
af33651be88b add lisp/gnus/gnus-sync.el
Katsumi Yamaoka <yamaoka@jpl.org>
parents:
diff changeset
146 ;; Idea from Dan Christensen <jdc@chow.mat.jhu.edu>
af33651be88b add lisp/gnus/gnus-sync.el
Katsumi Yamaoka <yamaoka@jpl.org>
parents:
diff changeset
147 ;; Save the .eld file with extra line breaks.
af33651be88b add lisp/gnus/gnus-sync.el
Katsumi Yamaoka <yamaoka@jpl.org>
parents:
diff changeset
148 (gnus-message 8 "gnus-sync: adding whitespace to %s"
af33651be88b add lisp/gnus/gnus-sync.el
Katsumi Yamaoka <yamaoka@jpl.org>
parents:
diff changeset
149 gnus-sync-backend)
af33651be88b add lisp/gnus/gnus-sync.el
Katsumi Yamaoka <yamaoka@jpl.org>
parents:
diff changeset
150 (save-excursion
af33651be88b add lisp/gnus/gnus-sync.el
Katsumi Yamaoka <yamaoka@jpl.org>
parents:
diff changeset
151 (goto-char (point-min))
af33651be88b add lisp/gnus/gnus-sync.el
Katsumi Yamaoka <yamaoka@jpl.org>
parents:
diff changeset
152 (while (re-search-forward "^(\\|(\\\"" nil t)
af33651be88b add lisp/gnus/gnus-sync.el
Katsumi Yamaoka <yamaoka@jpl.org>
parents:
diff changeset
153 (replace-match "\n\\&" t))
af33651be88b add lisp/gnus/gnus-sync.el
Katsumi Yamaoka <yamaoka@jpl.org>
parents:
diff changeset
154 (goto-char (point-min))
af33651be88b add lisp/gnus/gnus-sync.el
Katsumi Yamaoka <yamaoka@jpl.org>
parents:
diff changeset
155 (while (re-search-forward " $" nil t)
af33651be88b add lisp/gnus/gnus-sync.el
Katsumi Yamaoka <yamaoka@jpl.org>
parents:
diff changeset
156 (replace-match "" t t))))))))
af33651be88b add lisp/gnus/gnus-sync.el
Katsumi Yamaoka <yamaoka@jpl.org>
parents:
diff changeset
157 ;; the pass-through case: gnus-sync-backend is not a known choice
af33651be88b add lisp/gnus/gnus-sync.el
Katsumi Yamaoka <yamaoka@jpl.org>
parents:
diff changeset
158 (nil)))
af33651be88b add lisp/gnus/gnus-sync.el
Katsumi Yamaoka <yamaoka@jpl.org>
parents:
diff changeset
159
af33651be88b add lisp/gnus/gnus-sync.el
Katsumi Yamaoka <yamaoka@jpl.org>
parents:
diff changeset
160 (defun gnus-sync-read ()
af33651be88b add lisp/gnus/gnus-sync.el
Katsumi Yamaoka <yamaoka@jpl.org>
parents:
diff changeset
161 "Load the Gnus sync data from the backend."
af33651be88b add lisp/gnus/gnus-sync.el
Katsumi Yamaoka <yamaoka@jpl.org>
parents:
diff changeset
162 (interactive)
af33651be88b add lisp/gnus/gnus-sync.el
Katsumi Yamaoka <yamaoka@jpl.org>
parents:
diff changeset
163 (when gnus-sync-backend
af33651be88b add lisp/gnus/gnus-sync.el
Katsumi Yamaoka <yamaoka@jpl.org>
parents:
diff changeset
164 (gnus-message 7 "gnus-sync: loading from backend %s" gnus-sync-backend)
af33651be88b add lisp/gnus/gnus-sync.el
Katsumi Yamaoka <yamaoka@jpl.org>
parents:
diff changeset
165 (cond ((stringp gnus-sync-backend)
af33651be88b add lisp/gnus/gnus-sync.el
Katsumi Yamaoka <yamaoka@jpl.org>
parents:
diff changeset
166 ;; read data here...
af33651be88b add lisp/gnus/gnus-sync.el
Katsumi Yamaoka <yamaoka@jpl.org>
parents:
diff changeset
167 (if (or debug-on-error debug-on-quit)
af33651be88b add lisp/gnus/gnus-sync.el
Katsumi Yamaoka <yamaoka@jpl.org>
parents:
diff changeset
168 (load gnus-sync-backend nil t)
af33651be88b add lisp/gnus/gnus-sync.el
Katsumi Yamaoka <yamaoka@jpl.org>
parents:
diff changeset
169 (condition-case var
af33651be88b add lisp/gnus/gnus-sync.el
Katsumi Yamaoka <yamaoka@jpl.org>
parents:
diff changeset
170 (load gnus-sync-backend nil t)
af33651be88b add lisp/gnus/gnus-sync.el
Katsumi Yamaoka <yamaoka@jpl.org>
parents:
diff changeset
171 (error
af33651be88b add lisp/gnus/gnus-sync.el
Katsumi Yamaoka <yamaoka@jpl.org>
parents:
diff changeset
172 (error "Error in %s: %s" gnus-sync-backend (cadr var)))))
109769
fe81389a263d Optimizations for gnus-sync.el.
Katsumi Yamaoka <yamaoka@jpl.org>
parents: 109768
diff changeset
173 (let ((valid-count 0)
fe81389a263d Optimizations for gnus-sync.el.
Katsumi Yamaoka <yamaoka@jpl.org>
parents: 109768
diff changeset
174 invalid-groups)
fe81389a263d Optimizations for gnus-sync.el.
Katsumi Yamaoka <yamaoka@jpl.org>
parents: 109768
diff changeset
175 (dolist (node gnus-sync-newsrc-loader)
fe81389a263d Optimizations for gnus-sync.el.
Katsumi Yamaoka <yamaoka@jpl.org>
parents: 109768
diff changeset
176 (if (gnus-gethash (car node) gnus-newsrc-hashtb)
fe81389a263d Optimizations for gnus-sync.el.
Katsumi Yamaoka <yamaoka@jpl.org>
parents: 109768
diff changeset
177 (progn
fe81389a263d Optimizations for gnus-sync.el.
Katsumi Yamaoka <yamaoka@jpl.org>
parents: 109768
diff changeset
178 (incf valid-count)
fe81389a263d Optimizations for gnus-sync.el.
Katsumi Yamaoka <yamaoka@jpl.org>
parents: 109768
diff changeset
179 (loop for store in (cdr node)
fe81389a263d Optimizations for gnus-sync.el.
Katsumi Yamaoka <yamaoka@jpl.org>
parents: 109768
diff changeset
180 do (setf (nth (car store)
fe81389a263d Optimizations for gnus-sync.el.
Katsumi Yamaoka <yamaoka@jpl.org>
parents: 109768
diff changeset
181 (assoc (car node) gnus-newsrc-alist))
109766
af33651be88b add lisp/gnus/gnus-sync.el
Katsumi Yamaoka <yamaoka@jpl.org>
parents:
diff changeset
182 (cdr store))))
109769
fe81389a263d Optimizations for gnus-sync.el.
Katsumi Yamaoka <yamaoka@jpl.org>
parents: 109768
diff changeset
183 (push (car node) invalid-groups)))
109766
af33651be88b add lisp/gnus/gnus-sync.el
Katsumi Yamaoka <yamaoka@jpl.org>
parents:
diff changeset
184 (gnus-message
af33651be88b add lisp/gnus/gnus-sync.el
Katsumi Yamaoka <yamaoka@jpl.org>
parents:
diff changeset
185 7
af33651be88b add lisp/gnus/gnus-sync.el
Katsumi Yamaoka <yamaoka@jpl.org>
parents:
diff changeset
186 "gnus-sync: loaded %d groups (out of %d) from %s"
109769
fe81389a263d Optimizations for gnus-sync.el.
Katsumi Yamaoka <yamaoka@jpl.org>
parents: 109768
diff changeset
187 valid-count (length gnus-sync-newsrc-loader)
109766
af33651be88b add lisp/gnus/gnus-sync.el
Katsumi Yamaoka <yamaoka@jpl.org>
parents:
diff changeset
188 gnus-sync-backend)
109769
fe81389a263d Optimizations for gnus-sync.el.
Katsumi Yamaoka <yamaoka@jpl.org>
parents: 109768
diff changeset
189 (when invalid-groups
fe81389a263d Optimizations for gnus-sync.el.
Katsumi Yamaoka <yamaoka@jpl.org>
parents: 109768
diff changeset
190 (gnus-message
fe81389a263d Optimizations for gnus-sync.el.
Katsumi Yamaoka <yamaoka@jpl.org>
parents: 109768
diff changeset
191 7
fe81389a263d Optimizations for gnus-sync.el.
Katsumi Yamaoka <yamaoka@jpl.org>
parents: 109768
diff changeset
192 "gnus-sync: skipped %d groups (out of %d) from %s"
fe81389a263d Optimizations for gnus-sync.el.
Katsumi Yamaoka <yamaoka@jpl.org>
parents: 109768
diff changeset
193 (length invalid-groups)
fe81389a263d Optimizations for gnus-sync.el.
Katsumi Yamaoka <yamaoka@jpl.org>
parents: 109768
diff changeset
194 (length gnus-sync-newsrc-loader)
fe81389a263d Optimizations for gnus-sync.el.
Katsumi Yamaoka <yamaoka@jpl.org>
parents: 109768
diff changeset
195 gnus-sync-backend)
fe81389a263d Optimizations for gnus-sync.el.
Katsumi Yamaoka <yamaoka@jpl.org>
parents: 109768
diff changeset
196 (gnus-message 9 "gnus-sync: skipped groups: %s"
109777
729aca322fce Doc fixes and keep unknown groups.
Katsumi Yamaoka <yamaoka@jpl.org>
parents: 109774
diff changeset
197 (mapconcat 'identity invalid-groups ", ")))))
109766
af33651be88b add lisp/gnus/gnus-sync.el
Katsumi Yamaoka <yamaoka@jpl.org>
parents:
diff changeset
198 (nil))
af33651be88b add lisp/gnus/gnus-sync.el
Katsumi Yamaoka <yamaoka@jpl.org>
parents:
diff changeset
199 ;; make the hashtable again because the newsrc-alist may have been modified
109767
f7cd57edb2ca Minor bug fixes for gnus-sync.el.
Katsumi Yamaoka <yamaoka@jpl.org>
parents: 109766
diff changeset
200 (when gnus-sync-newsrc-offsets
109766
af33651be88b add lisp/gnus/gnus-sync.el
Katsumi Yamaoka <yamaoka@jpl.org>
parents:
diff changeset
201 (gnus-message 9 "gnus-sync: remaking the newsrc hashtable")
af33651be88b add lisp/gnus/gnus-sync.el
Katsumi Yamaoka <yamaoka@jpl.org>
parents:
diff changeset
202 (gnus-make-hashtable-from-newsrc-alist))))
af33651be88b add lisp/gnus/gnus-sync.el
Katsumi Yamaoka <yamaoka@jpl.org>
parents:
diff changeset
203
af33651be88b add lisp/gnus/gnus-sync.el
Katsumi Yamaoka <yamaoka@jpl.org>
parents:
diff changeset
204 ;;;###autoload
af33651be88b add lisp/gnus/gnus-sync.el
Katsumi Yamaoka <yamaoka@jpl.org>
parents:
diff changeset
205 (defun gnus-sync-initialize ()
af33651be88b add lisp/gnus/gnus-sync.el
Katsumi Yamaoka <yamaoka@jpl.org>
parents:
diff changeset
206 "Initialize the Gnus sync facility."
af33651be88b add lisp/gnus/gnus-sync.el
Katsumi Yamaoka <yamaoka@jpl.org>
parents:
diff changeset
207 (interactive)
af33651be88b add lisp/gnus/gnus-sync.el
Katsumi Yamaoka <yamaoka@jpl.org>
parents:
diff changeset
208 (gnus-message 5 "Initializing the sync facility")
af33651be88b add lisp/gnus/gnus-sync.el
Katsumi Yamaoka <yamaoka@jpl.org>
parents:
diff changeset
209 (gnus-sync-install-hooks))
af33651be88b add lisp/gnus/gnus-sync.el
Katsumi Yamaoka <yamaoka@jpl.org>
parents:
diff changeset
210
af33651be88b add lisp/gnus/gnus-sync.el
Katsumi Yamaoka <yamaoka@jpl.org>
parents:
diff changeset
211 ;;;###autoload
af33651be88b add lisp/gnus/gnus-sync.el
Katsumi Yamaoka <yamaoka@jpl.org>
parents:
diff changeset
212 (defun gnus-sync-install-hooks ()
af33651be88b add lisp/gnus/gnus-sync.el
Katsumi Yamaoka <yamaoka@jpl.org>
parents:
diff changeset
213 "Install the sync hooks."
af33651be88b add lisp/gnus/gnus-sync.el
Katsumi Yamaoka <yamaoka@jpl.org>
parents:
diff changeset
214 (interactive)
109768
9c65ce5bc0db Minor bug fixes for gnus-sync.el.
Katsumi Yamaoka <yamaoka@jpl.org>
parents: 109767
diff changeset
215 ;; (add-hook 'gnus-get-new-news-hook 'gnus-sync-read)
109766
af33651be88b add lisp/gnus/gnus-sync.el
Katsumi Yamaoka <yamaoka@jpl.org>
parents:
diff changeset
216 (add-hook 'gnus-save-newsrc-hook 'gnus-sync-save)
109783
43f98127e0f3 Typo fix "hoo4a" -> "hook".
Katsumi Yamaoka <yamaoka@jpl.org>
parents: 109778
diff changeset
217 (add-hook 'gnus-read-newsrc-el-hook 'gnus-sync-read))
109766
af33651be88b add lisp/gnus/gnus-sync.el
Katsumi Yamaoka <yamaoka@jpl.org>
parents:
diff changeset
218
af33651be88b add lisp/gnus/gnus-sync.el
Katsumi Yamaoka <yamaoka@jpl.org>
parents:
diff changeset
219 (defun gnus-sync-unload-hook ()
af33651be88b add lisp/gnus/gnus-sync.el
Katsumi Yamaoka <yamaoka@jpl.org>
parents:
diff changeset
220 "Uninstall the sync hooks."
af33651be88b add lisp/gnus/gnus-sync.el
Katsumi Yamaoka <yamaoka@jpl.org>
parents:
diff changeset
221 (interactive)
109768
9c65ce5bc0db Minor bug fixes for gnus-sync.el.
Katsumi Yamaoka <yamaoka@jpl.org>
parents: 109767
diff changeset
222 ;; (remove-hook 'gnus-get-new-news-hook 'gnus-sync-read)
109766
af33651be88b add lisp/gnus/gnus-sync.el
Katsumi Yamaoka <yamaoka@jpl.org>
parents:
diff changeset
223 (remove-hook 'gnus-save-newsrc-hook 'gnus-sync-save)
af33651be88b add lisp/gnus/gnus-sync.el
Katsumi Yamaoka <yamaoka@jpl.org>
parents:
diff changeset
224 (remove-hook 'gnus-read-newsrc-el-hook 'gnus-sync-read))
af33651be88b add lisp/gnus/gnus-sync.el
Katsumi Yamaoka <yamaoka@jpl.org>
parents:
diff changeset
225
af33651be88b add lisp/gnus/gnus-sync.el
Katsumi Yamaoka <yamaoka@jpl.org>
parents:
diff changeset
226 (add-hook 'gnus-sync-unload-hook 'gnus-sync-unload-hook)
af33651be88b add lisp/gnus/gnus-sync.el
Katsumi Yamaoka <yamaoka@jpl.org>
parents:
diff changeset
227
af33651be88b add lisp/gnus/gnus-sync.el
Katsumi Yamaoka <yamaoka@jpl.org>
parents:
diff changeset
228 ;; this is harmless by default, until the gnus-sync-backend is set
af33651be88b add lisp/gnus/gnus-sync.el
Katsumi Yamaoka <yamaoka@jpl.org>
parents:
diff changeset
229 (gnus-sync-initialize)
af33651be88b add lisp/gnus/gnus-sync.el
Katsumi Yamaoka <yamaoka@jpl.org>
parents:
diff changeset
230
af33651be88b add lisp/gnus/gnus-sync.el
Katsumi Yamaoka <yamaoka@jpl.org>
parents:
diff changeset
231 (provide 'gnus-sync)
af33651be88b add lisp/gnus/gnus-sync.el
Katsumi Yamaoka <yamaoka@jpl.org>
parents:
diff changeset
232
af33651be88b add lisp/gnus/gnus-sync.el
Katsumi Yamaoka <yamaoka@jpl.org>
parents:
diff changeset
233 ;;; gnus-sync.el ends here