* elmo-dop.el (elmo-folder-status-dop): If spool-folder is absent,
[elisp/wanderlust.git] / elmo / elmo-multi.el
1 ;;; elmo-multi.el --- Multiple Folder Interface for ELMO.
2
3 ;; Copyright (C) 1998,1999,2000 Yuuichi Teranishi <teranisi@gohome.org>
4
5 ;; Author: Yuuichi Teranishi <teranisi@gohome.org>
6 ;; Keywords: mail, net news
7
8 ;; This file is part of ELMO (Elisp Library for Message Orchestration).
9
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 ;;
25
26 ;;; Commentary:
27 ;;
28
29 ;;; Code:
30 ;;
31
32 (require 'elmo)
33 (require 'luna)
34
35 (defvar elmo-multi-divide-number 100000
36   "*Multi divider number.")
37
38 ;;; ELMO Multi folder
39 (eval-and-compile
40   (luna-define-class elmo-multi-folder (elmo-folder)
41                      (children divide-number))
42   (luna-define-internal-accessors 'elmo-multi-folder))
43
44 (luna-define-method elmo-folder-initialize ((folder
45                                              elmo-multi-folder)
46                                             name)
47   (while (> (length (car (setq name (elmo-parse-token name ",")))) 0)
48     (elmo-multi-folder-set-children-internal
49      folder
50      (nconc (elmo-multi-folder-children-internal
51              folder)
52             (list (elmo-make-folder (car name)))))
53     (setq name (cdr name))
54     (when (and (> (length name) 0)
55                (eq (aref name 0) ?,))
56       (setq name (substring name 1))))
57   (elmo-multi-folder-set-divide-number-internal
58    folder
59    elmo-multi-divide-number)
60   folder)
61
62 (luna-define-method elmo-folder-open-internal ((folder elmo-multi-folder))
63   (dolist (fld (elmo-multi-folder-children-internal folder))
64     (elmo-folder-open-internal fld)))
65
66 (luna-define-method elmo-folder-check ((folder elmo-multi-folder))
67   (dolist (fld (elmo-multi-folder-children-internal folder))
68     (elmo-folder-check fld)))
69
70 (luna-define-method elmo-folder-close-internal ((folder elmo-multi-folder))
71   (dolist (fld (elmo-multi-folder-children-internal folder))
72     (elmo-folder-close-internal fld)))
73
74 (luna-define-method elmo-folder-expand-msgdb-path ((folder
75                                                     elmo-multi-folder))
76   (expand-file-name (elmo-replace-string-as-filename
77                      (elmo-folder-name-internal folder))
78                     (expand-file-name "multi"
79                                       elmo-msgdb-directory)))
80
81 (luna-define-method elmo-folder-newsgroups ((folder elmo-multi-folder))
82   (delq nil
83         (elmo-flatten
84          (mapcar
85           'elmo-folder-newsgroups
86           (elmo-flatten
87            (mapcar
88             'elmo-folder-get-primitive-list
89             (elmo-multi-folder-children-internal folder)))))))
90
91 (luna-define-method elmo-folder-get-primitive-list ((folder elmo-multi-folder))
92   (elmo-flatten
93    (mapcar
94     'elmo-folder-get-primitive-list
95     (elmo-multi-folder-children-internal folder))))
96
97 (luna-define-method elmo-folder-contains-type ((folder elmo-multi-folder) type)
98   (let ((children (elmo-multi-folder-children-internal folder))
99         match)
100     (while children
101       (when (elmo-folder-contains-type (car children) type)
102         (setq match t)
103         (setq children nil))
104       (setq children (cdr children)))
105     match))
106
107 (luna-define-method elmo-message-folder ((folder elmo-multi-folder)
108                                          number)
109   (nth (- (/ number (elmo-multi-folder-divide-number-internal folder)) 1)
110        (elmo-multi-folder-children-internal folder)))
111
112 (defun elmo-multi-msgdb (msgdb base)
113   (list (mapcar (function
114                  (lambda (x)
115                    (elmo-msgdb-overview-entity-set-number
116                     x
117                     (+ base
118                        (elmo-msgdb-overview-entity-get-number x)))))
119                 (nth 0 msgdb))
120         (mapcar (function
121                  (lambda (x) (cons
122                               (+ base (car x))
123                               (cdr x))))
124                 (nth 1 msgdb))
125         (mapcar (function
126                  (lambda (x) (cons
127                               (+ base (car x))
128                               (cdr x)))) (nth 2 msgdb))))
129
130 (defun elmo-multi-split-numbers (folder numlist &optional as-is)
131   (let ((numbers (sort numlist '<))
132         (divider (elmo-multi-folder-divide-number-internal folder))
133         (cur-number 0)
134         one-list numbers-list)
135     (while numbers
136       (setq cur-number (+ cur-number 1))
137       (setq one-list nil)
138       (while (and numbers
139                   (eq 0
140                       (/ (- (car numbers)
141                             (* divider cur-number))
142                          divider)))
143         (setq one-list (nconc
144                         one-list
145                         (list
146                          (if as-is
147                              (car numbers)
148                            (% (car numbers)
149                               (* divider cur-number))))))
150         (setq numbers (cdr numbers)))
151       (setq numbers-list (nconc numbers-list (list one-list))))
152     numbers-list))
153
154 (luna-define-method elmo-folder-msgdb-create ((folder elmo-multi-folder)
155                                               numbers new-mark already-mark
156                                               seen-mark important-mark
157                                               seen-list)
158   (let* ((folders (elmo-multi-folder-children-internal folder))
159          overview number-alist mark-alist entity
160          numbers-list
161          cur-number
162          i percent num
163          msgdb)
164     (setq numbers-list (elmo-multi-split-numbers folder numbers))
165     (setq cur-number 0)
166     (while (< cur-number (length folders))
167       (if (nth cur-number numbers-list)
168           (setq msgdb
169                 (elmo-msgdb-append
170                  msgdb
171                  (elmo-multi-msgdb
172                   (elmo-folder-msgdb-create (nth cur-number folders)
173                                             (nth cur-number numbers-list)
174                                             new-mark already-mark
175                                             seen-mark important-mark
176                                             seen-list)
177                   (* (elmo-multi-folder-divide-number-internal folder)
178                      (1+ cur-number))))))
179       (setq cur-number (1+ cur-number)))
180     (elmo-msgdb-sort-by-date msgdb)))
181
182 (luna-define-method elmo-folder-process-crosspost ((folder elmo-multi-folder)
183                                                    &optional
184                                                    number-alist)
185   (let ((number-alists (elmo-multi-split-number-alist
186                         folder
187                         (elmo-msgdb-get-number-alist
188                          (elmo-folder-msgdb folder))))
189         (cur-number 1))
190     (dolist (child (elmo-multi-folder-children-internal folder))
191       (elmo-folder-process-crosspost child (car number-alists))
192       (setq cur-number (+ 1 cur-number)
193             number-alists (cdr number-alists)))))
194
195 (defsubst elmo-multi-folder-append-msgdb (folder append-msgdb)
196   (if append-msgdb
197       (let* ((number-alist (elmo-msgdb-get-number-alist append-msgdb))
198              (all-alist (copy-sequence (append
199                                         (elmo-msgdb-get-number-alist
200                                          (elmo-folder-msgdb folder))
201                                         number-alist)))
202              (cur number-alist)
203              overview to-be-deleted
204              mark-alist same)
205         (while cur
206           (setq all-alist (delq (car cur) all-alist))
207           ;; same message id exists.
208           (if (setq same (rassoc (cdr (car cur)) all-alist))
209               (unless (= (/ (car (car cur))
210                             (elmo-multi-folder-divide-number-internal folder))
211                          (/ (car same)
212                             (elmo-multi-folder-divide-number-internal folder)))
213                 ;; base is also same...delete it!
214                 (setq to-be-deleted
215                       (append to-be-deleted (list (car (car cur)))))))
216           (setq cur (cdr cur)))
217         (cond ((eq (elmo-folder-process-duplicates-internal folder)
218                    'hide)
219                ;; Hide duplicates.
220                (elmo-msgdb-append-to-killed-list folder to-be-deleted)
221                (setq overview (elmo-delete-if
222                                (lambda (x)
223                                  (memq (elmo-msgdb-overview-entity-get-number
224                                         x)
225                                        to-be-deleted))
226                                (elmo-msgdb-get-overview append-msgdb)))
227                ;; Should be mark as read.
228                (elmo-folder-mark-as-read folder to-be-deleted)
229                (elmo-msgdb-set-overview append-msgdb overview))
230               ((eq (elmo-folder-process-duplicates-internal folder)
231                    'read)
232                ;; Mark as read duplicates.
233                (elmo-folder-mark-as-read folder to-be-deleted))
234               (t
235                ;; Do nothing.
236                (setq to-be-deleted nil)))
237         (elmo-folder-set-msgdb-internal folder
238                                         (elmo-msgdb-append
239                                          (elmo-folder-msgdb folder)
240                                          append-msgdb))
241         (length to-be-deleted))
242     0))
243
244 (luna-define-method elmo-folder-append-msgdb ((folder elmo-multi-folder)
245                                               append-msgdb)
246   (elmo-multi-folder-append-msgdb folder append-msgdb))
247
248 (defmacro elmo-multi-real-folder-number (folder number)
249   "Returns a cons cell of real FOLDER and NUMBER."
250   (` (cons (nth (- 
251                  (/ (, number)
252                     (elmo-multi-folder-divide-number-internal (, folder)))
253                  1) (elmo-multi-folder-children-internal (, folder)))
254            (% (, number) (elmo-multi-folder-divide-number-internal
255                           (, folder))))))
256
257 (defsubst elmo-multi-find-fetch-strategy (folder entity ignore-cache)
258   (if entity
259       (let ((pair (elmo-multi-real-folder-number
260                    folder
261                    (elmo-msgdb-overview-entity-get-number entity)))
262             (new-entity (elmo-msgdb-copy-overview-entity entity)))
263         (setq new-entity
264               (elmo-msgdb-overview-entity-set-number new-entity (cdr pair)))
265         (elmo-find-fetch-strategy (car pair) new-entity ignore-cache))
266     (elmo-make-fetch-strategy 'entire)))
267
268 (luna-define-method elmo-find-fetch-strategy
269   ((folder elmo-multi-folder)
270    entity &optional ignore-cache)
271   (elmo-multi-find-fetch-strategy folder entity ignore-cache))
272
273 (luna-define-method elmo-message-fetch ((folder elmo-multi-folder)
274                                         number strategy
275                                         &optional section outbuf unseen)
276   (let ((pair (elmo-multi-real-folder-number folder number)))
277     (elmo-message-fetch (car pair) (cdr pair) strategy section outbuf unseen)))
278
279 (luna-define-method elmo-folder-delete-messages ((folder elmo-multi-folder)
280                                                  numbers)
281   (let ((flds (elmo-multi-folder-children-internal folder))
282         one-list-list
283         (cur-number 0))
284     (setq one-list-list (elmo-multi-split-numbers folder numbers))
285     (while (< cur-number (length flds))
286       (elmo-folder-delete-messages (nth cur-number flds)
287                                    (nth cur-number one-list-list))
288       (setq cur-number (+ 1 cur-number)))
289     t))
290
291 (luna-define-method elmo-folder-diff ((folder elmo-multi-folder)
292                                       &optional numbers)
293   (elmo-multi-folder-diff folder numbers))
294
295 (defun elmo-multi-folder-diff (folder numbers)
296   (let ((flds (elmo-multi-folder-children-internal folder))
297         (numbers (mapcar 'car
298                          (elmo-msgdb-number-load
299                           (elmo-folder-msgdb-path folder))))
300         (killed (elmo-msgdb-killed-list-load (elmo-folder-msgdb-path folder)))
301         (count 0)
302         (unsync 0)
303         (messages 0)
304         num-list
305         diffs nums)
306     ;; If first time, dummy numbers is used as current number list.
307     (unless numbers
308       (let ((i 0)
309             (divider (elmo-multi-folder-divide-number-internal folder)))
310         (dolist (folder flds)
311           (setq i (+ i 1))
312           (setq numbers
313                 (cons (* i divider) numbers)))))
314     (setq num-list
315           (elmo-multi-split-numbers folder
316                                     (elmo-uniq-list
317                                      (nconc
318                                       (elmo-number-set-to-number-list killed)
319                                       numbers))))
320     (while flds
321       (setq nums (elmo-folder-diff (car flds) (car num-list))
322             nums (cons (or (elmo-diff-unread nums)
323                            (elmo-diff-new nums))
324                        (elmo-diff-all nums)))
325       (setq diffs (nconc diffs (list nums)))
326       (setq count (+ 1 count))
327       (setq num-list (cdr num-list))
328       (setq flds (cdr flds)))
329     (while diffs
330       (and (car (car diffs))
331            (setq unsync (+ unsync (car (car diffs)))))
332       (setq messages  (+ messages (cdr (car diffs))))
333       (setq diffs (cdr diffs)))
334     (elmo-folder-set-info-hashtb folder nil messages)
335     (cons unsync messages)))
336
337 (defun elmo-multi-split-number-alist (folder number-alist)
338   (let ((alist (sort (copy-sequence number-alist)
339                      (lambda (pair1 pair2)
340                        (< (car pair1)(car pair2)))))
341         (cur-number 0)
342         one-alist split num)
343     (while alist
344       (setq cur-number (+ cur-number 1))
345       (setq one-alist nil)
346       (while (and alist
347                   (eq 0
348                       (/ (- (setq num (car (car alist)))
349                             (* elmo-multi-divide-number cur-number))
350                          (elmo-multi-folder-divide-number-internal folder))))
351         (setq one-alist (nconc
352                          one-alist
353                          (list
354                           (cons
355                            (% num (* (elmo-multi-folder-divide-number-internal
356                                       folder) cur-number))
357                            (cdr (car alist))))))
358         (setq alist (cdr alist)))
359       (setq split (nconc split (list one-alist))))
360     split))
361
362 (defun elmo-multi-split-mark-alist (folder mark-alist)
363   (let ((cur-number 0)
364         (alist (sort (copy-sequence mark-alist)
365                      (lambda (pair1 pair2)
366                        (< (car pair1)(car pair2)))))
367         one-alist result)
368     (while alist
369       (setq cur-number (+ cur-number 1))
370       (setq one-alist nil)
371       (while (and alist
372                   (eq 0
373                       (/ (- (car (car alist))
374                             (* (elmo-multi-folder-divide-number-internal
375                                 folder) cur-number))
376                          (elmo-multi-folder-divide-number-internal folder))))
377         (setq one-alist (nconc
378                          one-alist
379                          (list
380                           (list (% (car (car alist))
381                                    (* (elmo-multi-folder-divide-number-internal
382                                        folder) cur-number))
383                                 (cadr (car alist))))))
384         (setq alist (cdr alist)))
385       (setq result (nconc result (list one-alist))))
386     result))
387
388 (luna-define-method elmo-folder-list-unreads-internal
389   ((folder elmo-multi-folder) unread-marks &optional mark-alist)
390   (elmo-multi-folder-list-unreads-internal folder unread-marks))
391
392 (defun elmo-multi-folder-list-unreads-internal (folder unread-marks)
393   (let ((folders (elmo-multi-folder-children-internal folder))
394         (mark-alists (elmo-multi-split-mark-alist
395                       folder
396                       (elmo-msgdb-get-mark-alist
397                        (elmo-folder-msgdb folder))))
398         (cur-number 0)
399         unreads
400         all-unreads)
401     (while folders
402       (setq cur-number (+ cur-number 1))
403       (unless (listp (setq unreads
404                            (elmo-folder-list-unreads-internal
405                             (car folders) unread-marks (car mark-alists))))
406         (setq unreads (delq  nil
407                              (mapcar
408                               (lambda (x)
409                                 (if (member (cadr x) unread-marks)
410                                     (car x)))
411                               (car mark-alists)))))
412       (setq all-unreads
413             (nconc all-unreads
414                    (mapcar 
415                     (lambda (x)
416                       (+ x
417                          (* cur-number
418                             (elmo-multi-folder-divide-number-internal
419                              folder))))            
420                     unreads)))
421       (setq mark-alists (cdr mark-alists)
422             folders (cdr folders)))
423     all-unreads))
424
425 (luna-define-method elmo-folder-list-importants-internal
426   ((folder elmo-multi-folder) important-mark)
427   (let ((folders (elmo-multi-folder-children-internal folder))
428         (mark-alists (elmo-multi-split-mark-alist
429                       folder
430                       (elmo-msgdb-get-mark-alist
431                        (elmo-folder-msgdb folder))))
432         (cur-number 0)
433         importants
434         all-importants)
435     (while folders
436       (setq cur-number (+ cur-number 1))
437       (when (listp (setq importants
438                          (elmo-folder-list-importants-internal
439                           (car folders) important-mark)))
440         (setq all-importants
441               (nconc all-importants
442                      (mapcar 
443                       (lambda (x)
444                         (+ x
445                            (* cur-number
446                               (elmo-multi-folder-divide-number-internal
447                                folder))))                  
448                       importants))))
449       (setq mark-alists (cdr mark-alists)
450             folders (cdr folders)))
451     all-importants))
452
453 (luna-define-method elmo-folder-list-messages-internal
454   ((folder elmo-multi-folder) &optional nohide)
455   (let* ((flds (elmo-multi-folder-children-internal folder))
456          (cur-number 0)
457          list numbers)
458     (while flds
459       (setq cur-number (+ cur-number 1))
460       (setq list (elmo-folder-list-messages-internal (car flds)))
461       (setq numbers
462             (append
463              numbers
464              (if (listp list)
465                  (mapcar
466                   (function
467                    (lambda (x)
468                      (+
469                       (* (elmo-multi-folder-divide-number-internal
470                           folder) cur-number) x)))
471                   list)
472                ;; Use current list.
473                (elmo-delete-if
474                 (lambda (num)
475                   (not
476                    (eq cur-number (/ num
477                                      (elmo-multi-folder-divide-number-internal
478                                       folder)))))
479                 (mapcar
480                  'car
481                  (elmo-msgdb-get-number-alist
482                   (elmo-folder-msgdb folder)))))))
483       (setq flds (cdr flds)))
484     numbers))
485
486 (luna-define-method elmo-folder-exists-p ((folder elmo-multi-folder))
487   (let ((flds (elmo-multi-folder-children-internal folder)))
488     (catch 'exists
489       (while flds
490         (unless (elmo-folder-exists-p (car flds))
491           (throw 'exists nil))
492         (setq flds (cdr flds)))
493       t)))
494
495 (luna-define-method elmo-folder-creatable-p ((folder elmo-multi-folder))
496   (let ((flds (elmo-multi-folder-children-internal folder)))
497     (catch 'creatable
498       (while flds
499         (when (and (elmo-folder-creatable-p (car flds))
500                    (not (elmo-folder-exists-p (car flds))))
501           ;; If folder already exists, don't to `creatable'.
502           ;; Because this function is called, when folder doesn't exists.
503           (throw 'creatable t))
504         (setq flds (cdr flds)))
505       nil)))
506
507 (luna-define-method elmo-folder-create ((folder elmo-multi-folder))
508   (let ((flds (elmo-multi-folder-children-internal folder)))
509     (catch 'create
510       (while flds
511         (unless (or (elmo-folder-exists-p (car flds))
512                     (elmo-folder-create (car flds)))
513           (throw 'create nil))
514         (setq flds (cdr flds)))
515       t)))
516
517 (luna-define-method elmo-folder-search ((folder elmo-multi-folder)
518                                         condition &optional numlist)
519   (let* ((flds (elmo-multi-folder-children-internal folder))
520          (cur-number 0)
521          numlist-list cur-numlist ; for filtered search.
522          ret-val)
523     (if numlist
524         (setq numlist-list
525               (elmo-multi-split-numbers folder numlist t)))
526     (while flds
527       (setq cur-number (+ cur-number 1))
528       (when numlist
529         (setq cur-numlist (car numlist-list))
530         (if (null cur-numlist)
531             ;; t means filter all.
532             (setq cur-numlist t)))
533       (setq ret-val (append
534                      ret-val
535                      (elmo-list-filter
536                       cur-numlist
537                       (mapcar
538                        (function
539                         (lambda (x)
540                           (+
541                            (* (elmo-multi-folder-divide-number-internal
542                                folder) cur-number) x)))
543                        (elmo-folder-search
544                         (car flds) condition)))))
545       (when numlist
546         (setq numlist-list (cdr numlist-list)))
547       (setq flds (cdr flds)))
548     ret-val))
549
550 (luna-define-method elmo-message-use-cache-p ((folder elmo-multi-folder)
551                                               number)
552   (let ((pair (elmo-multi-real-folder-number folder number)))
553     (elmo-message-use-cache-p (car pair) (cdr pair))))
554
555 (luna-define-method elmo-message-file-p ((folder elmo-multi-folder) number)
556   (let ((pair (elmo-multi-real-folder-number folder number)))
557     (elmo-message-file-p (car pair) (cdr pair))))
558
559 (luna-define-method elmo-message-file-name ((folder elmo-multi-folder) number)
560   (let ((pair (elmo-multi-real-folder-number folder number)))
561     (elmo-message-file-name (car pair) (cdr pair))))
562
563 (luna-define-method elmo-folder-plugged-p ((folder elmo-multi-folder))
564   (let ((flds (elmo-multi-folder-children-internal folder)))
565     (catch 'plugged
566       (while flds
567         (unless (elmo-folder-plugged-p (car flds))
568           (throw 'plugged nil))
569         (setq flds (cdr flds)))
570       t)))
571
572 (luna-define-method elmo-folder-set-plugged ((folder elmo-multi-folder)
573                                              plugged add)
574   (let ((flds  (elmo-multi-folder-children-internal folder)))
575     (dolist (fld flds)
576       (elmo-folder-set-plugged fld plugged add))))
577
578 (defun elmo-multi-folder-numbers-list-assoc (folder folder-numbers)
579   (let (ent)
580     (while folder-numbers
581       (when (string= (elmo-folder-name-internal (car (car folder-numbers)))
582                      (elmo-folder-name-internal folder))
583         (setq ent (car folder-numbers)
584               folder-numbers nil))
585       (setq folder-numbers (cdr folder-numbers)))
586     ent))
587
588 (defun elmo-multi-make-folder-numbers-list (folder msgs)
589   (let ((msg-list msgs)
590         pair fld-list
591         ret-val)
592     (while msg-list
593       (when (and (numberp (car msg-list))
594                  (> (car msg-list) 0))
595         (setq pair (elmo-multi-real-folder-number folder (car msg-list)))
596         (if (setq fld-list (elmo-multi-folder-numbers-list-assoc
597                             (car pair)
598                             ret-val))
599             (setcdr fld-list (cons (cdr pair) (cdr fld-list)))
600           (setq ret-val (cons (cons (car pair) (list (cdr pair))) ret-val))))
601       (setq msg-list (cdr msg-list)))
602     ret-val))
603
604 (luna-define-method elmo-folder-mark-as-important ((folder elmo-multi-folder)
605                                                    numbers)
606   (dolist (folder-numbers (elmo-multi-make-folder-numbers-list folder numbers))
607     (elmo-folder-mark-as-important (car folder-numbers)
608                                    (cdr folder-numbers)))
609   t)
610
611 (luna-define-method elmo-folder-unmark-important ((folder elmo-multi-folder)
612                                                   numbers)
613   (dolist (folder-numbers (elmo-multi-make-folder-numbers-list folder numbers))
614     (elmo-folder-unmark-important (car folder-numbers)
615                                   (cdr folder-numbers)))
616   t)
617
618 (luna-define-method elmo-folder-mark-as-read ((folder elmo-multi-folder)
619                                               numbers)
620   (dolist (folder-numbers (elmo-multi-make-folder-numbers-list folder numbers))
621     (elmo-folder-mark-as-read (car folder-numbers)
622                               (cdr folder-numbers)))
623   t)
624
625 (luna-define-method elmo-folder-unmark-read ((folder elmo-multi-folder)
626                                              numbers)
627   (dolist (folder-numbers (elmo-multi-make-folder-numbers-list folder numbers))
628     (elmo-folder-unmark-read (car folder-numbers)
629                              (cdr folder-numbers)))
630   t)
631
632 (require 'product)
633 (product-provide (provide 'elmo-multi) (require 'elmo-version))
634
635 ;;; elmo-multi.el ends here