← Back to branch summary

~vcs-imports/mew/master

« back to all changes in this revision

Viewing changes to mew-refile.el

  • Committer: Kazu Yamamoto
  • Date: 2019-04-11 05:17:03 UTC
  • mfrom: (341.1.1)
  • Revision ID: git-v1:92f631cdf474ab750163e47f63f40571590dbaba
Merge PR #115.

Show diffs side-by-side

added added

removed removed

Lines of Context:
mew-refile.el
424
424
                           (and (member csn (car oho)) (throw 'find t))
425
425
                           (setq oho (cdr oho))))))
426
426
              (throw 'match (setq folder csn)))))
427
 
      (setq mew-refile-msgid-alist
428
 
            (cons (list msgid folder "??")
429
 
                  (delq (assoc msgid mew-refile-msgid-alist) ;; delq is right
430
 
                        mew-refile-msgid-alist))))))
 
427
      (if (and folder (not (string= folder (mew-imap-spam-folder))))
 
428
          (setq mew-refile-msgid-alist
 
429
                (cons (list msgid folder "??")
 
430
                      (delq (assoc msgid mew-refile-msgid-alist) ;; delq is right
 
431
                            mew-refile-msgid-alist)))))))
431
432
 
432
433
(defun mew-refile-guess-by-from-learn (chosen info)
433
434
  ;; Create mew-refile-from-alist for mew-refile-guess-by-from.
457
458
          (unless (mew-member* csn info)
458
459
            (throw 'match (setq folder csn)))))
459
460
      (run-hooks 'mew-refile-guess-by-from-learn-hook)
460
 
      ;; If candidate was found, I memorize it.
461
 
      (when folder
 
461
      ;; If candidate was found and it is not spam folder for IMAP, I memorize it.
 
462
      (when (and folder (not (string= folder (mew-imap-spam-folder))))
462
463
        (setq mew-refile-from-alist
463
464
              (cons (cons from folder)
464
465
                    (delq (assoc from mew-refile-from-alist) ;; delq is right