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