← Back to branch summary

~ubuntu-branches/ubuntu/lucid/mew-beta/lucid

« back to all changes in this revision

Viewing changes to mew-pop.el

  • Committer: Bazaar Package Importer
  • Author(s): Tatsuya Kinoshita
  • Date: 2006-10-31 22:07:48 UTC
  • mfrom: (1.1.6 upstream) (2.1.2 etch)
  • Revision ID: james.westby@ubuntu.com-20061031220748-iq1bg528g9nt2l57
Tags: 5.1.52~0.20061031-1
New upstream release. (CVS trunk on 2006-10-31)

Show diffs side-by-side

added added

removed removed

Lines of Context:
mew-pop.el
454
454
         (mew-pop-set-status pnm "quit")
455
455
         (mew-pop-command-quit pro pnm)
456
456
         (throw 'write-error nil)))
457
 
      (mew-set-file-modes file)
458
 
      (mew-set-file-type file)
459
457
      (mew-pop-set-rcnt pnm (1+ (mew-pop-get-rcnt pnm)))
460
 
      ;;
461
 
      (mew-set-buffer-multibyte t)
462
 
      (setq vec (mew-scan-header))
463
 
      (mew-scan-set-folder vec fld)
464
 
      (mew-scan-set-message vec msg)
465
 
      (if (or (eq directive 'inc) (eq directive 'scan))
466
 
          (setq mark (mew-scan-inbox-action vec case)))
467
 
      (if (and mark
468
 
               (eq directive 'scan)
469
 
               (not (memq mark (list mew-mark-delete mew-mark-unlink))))
470
 
          (setq mark nil))
471
 
      (mew-scan-body vec)
472
 
      (mew-set-buffer-multibyte nil)
473
 
      (mew-scan-insert-line fld vec width lmsg mark)
 
458
      (when (file-exists-p file)
 
459
        (mew-set-file-modes file)
 
460
        (mew-set-file-type file)
 
461
        ;;
 
462
        (mew-set-buffer-multibyte t)
 
463
        (setq vec (mew-scan-header))
 
464
        (mew-scan-set-folder vec fld)
 
465
        (mew-scan-set-message vec msg)
 
466
        (if (or (eq directive 'inc) (eq directive 'scan))
 
467
            (setq mark (mew-scan-inbox-action vec case)))
 
468
        (if (and mark
 
469
                 (eq directive 'scan)
 
470
                 (stringp mark)) ;; in the case of refiling
 
471
            (setq mark nil))
 
472
        (mew-scan-body vec)
 
473
        (mew-set-buffer-multibyte nil)
 
474
        (mew-scan-insert-line fld vec width lmsg mark))
474
475
      (mew-pop-set-rtrs pnm (cdr rtrs))
475
476
      (if (and del (not truncated))
476
477
          (progn