| blob | b7e4e7163cb903913e3b50d093f2c39796171a16 |
1 ;;; elmo-flag.el --- global flag handling.
3 ;; Copyright (C) 2003 Yuuichi Teranishi <teranisi@gohome.org>
5 ;; Author: Yuuichi Teranishi <teranisi@gohome.org>
6 ;; Keywords: mail, net news
8 ;; This file is part of ELMO (Elisp Library for Message Orchestration).
10 ;; This program is free software; you can redistribute it and/or modify
11 ;; it under the terms of the GNU General Public License as published by
12 ;; the Free Software Foundation; either version 2, or (at your option)
13 ;; any later version.
14 ;;
15 ;; This program is distributed in the hope that it will be useful,
16 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
17 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
18 ;; GNU General Public License for more details.
19 ;;
20 ;; You should have received a copy of the GNU General Public License
21 ;; along with GNU Emacs; see the file COPYING. If not, write to the
22 ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
23 ;; Boston, MA 02111-1307, USA.
24 ;;
26 ;;; Commentary:
27 ;;
29 ;;; Code:
35 "A list of flag symbol which is managed globally by the flag folder."
40 "A list of flag symbol which is not treated as global flag."
61 elmo-flag-folder)
62 name)
65 elmo-flag-char-regexp
67 name)
73 folder
77 msgdb-path)
82 ;; must be AFTER set flag slot.
87 folder
88 msgdb-path)
90 folder
91 msgdb-path)
94 folder
97 folder
102 folder)))
109 elem hash)
113 elem hash)))
122 elmo-msgdb-directory))
125 elmo-flag-folder))
129 elmo-mime-charset)
141 "/"
143 elmo-global-flags))
149 folder)))
150 target-folder key)
156 folder))
160 ;; Unset the flag of the original folder.
161 ;; (XXX Should the message-id checked?)
167 folder))
169 folder))
171 folder
173 t)
176 elmo-flag-folder)
177 numbers)
182 t)
184 ;; Same as localdir except that the flag is always the flag.
186 numbers
187 flag-table)
192 entity)
194 "Creating msgdb"
197 new-msgdb dir number))
200 new-msgdb)))
203 src-folder
204 numbers
205 same-number)
212 numbers)
219 numbers
220 flag
225 ;;; Utilities
228 "Get the flag folder structure for FLAG."
233 "Return a list of referrer message information.
234 Each element is a cons cell like following:
235 \(FNAME . NUMBER\)
236 FNAME is the name of the folder which the message is contained.
237 NUMBER is the number of the message."
241 folder)))))
243 ;;; Global-Flag API
245 "Return non-nil when FLAG is global."
249 "Return a list of global flags for the message.
250 FNAME is the name string of the folder.
251 NUMBER is the number of the message."
253 folder matches)
260 matches)))
262 matches))
265 "List messages which have global flag.
266 FOLDER is the elmo folder structure.
267 FLAG is the symbol of the flag."
270 result number)
274 result)))
276 ;;;
277 ;; minfo is a list of following cell.
278 ;; ((((FNAME . NUMBER)...(FNAME . NUMBER)) MESSAGE-ID NUMBER-IN-FLAG-FOLDER)
279 ;; minfo-index is the hash table of above with following indice;
281 "Set global flags to the message.
282 FLAGS is a list of symbol of the flag.
283 FOLDER is the elmo folder structure.
284 NUMBER is the message number."
289 "Return non-nil when flag is not appropriate for global flag."
297 filename cache new-file new-number elem)
299 message-id
301 flag-folder)))
302 ;; Same ID already exists.
312 folder))
313 elem
315 flag-folder)))
316 ;; Append new element.
318 flag-folder
320 ;; This is the first time.
342 flag-folder
347 number)))
348 message-id
349 new-number))
354 folder))
355 elem
357 flag-folder)))
360 flag-folder))
363 flag-folder)))
365 new-number)))
368 "Set global flag to the message.
369 FLAG is a symbol of the flag.
370 FOLDER is the elmo folder structure.
371 NUMBER is the message number.
372 MESSAGE-ID is the message-id of the message."
377 "Detach the message from the global flag.
378 FOLDER is the folder structure.
379 NUMBERS is the message number.
380 If optional DELETE-IF-NONE is non-nil, delete message from flag folder when
381 the message is not flagged in any folder.
382 If DELETE-IF-NONE is a symbol `always',
383 delete message without flagged in other folder."
387 elem key)
392 key
398 flag-folder))
399 ;; Does not have any referrer, remove.
409 delete-if-none)
410 "Detach all messages specified from all global flags.
411 FOLDER is the folder structure.
412 NUMBERS is the message number list.
413 If optional DELETE-IF-NONE is non-nil, delete message from flag folder when
414 the message is not flagged in any folder."
424 modified)
435 "Get global flags.
436 Return value is a subset of optional argument FLAGS.
437 If FLAGS is `t', all global flags becomes candidates.
438 If optional IGNORE-PRESERVED is non-nil, preserved flags
439 \(answered, cached, new, unread\) are not included."
442 flags))))
450 result))
456 elmo-local-flags
459 elmo-global-flags
460 additional-flags
469 ;;; To migrate from global mark folder
474 "Migrate from 'mark to 'flag. For automatic migration."
476 elmo-msgdb-directory))
483 "Upgrade old `global-mark' structure."
486 elmo-global-mark-filename elmo-msgdb-directory))
492 elmo-global-mark-filename elmo-msgdb-directory)))
494 file-cache)
507 elmo-global-flag-folder-alist))
508 t)))
513 ;;; elmo-flag.el ends here