← Back to branch summary

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

« back to all changes in this revision

Viewing changes to mew-imap.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-imap.el
625
625
         (mew-imap-set-status pnm "logout")
626
626
         (mew-imap-command-logout pro pnm)
627
627
         (throw 'write-error nil)))
628
 
      (mew-set-file-modes file)
629
 
      (unless (string= folder (mew-imap-trash-folder case))
630
 
        (mew-set-file-type file))
631
628
      (mew-imap-set-rcnt pnm (1+ (mew-imap-get-rcnt pnm)))
632
 
      ;;
633
 
      (mew-set-buffer-multibyte t)
634
 
      (setq vec (mew-scan-header))
635
 
      (mew-scan-set-folder vec fld)
636
 
      (mew-scan-set-message vec msg)
637
 
      (if (and (eq directive 'scan)
638
 
               (string= folder mew-imap-inbox-folder))
639
 
          (setq mark (mew-scan-inbox-action vec case)))
640
 
      (mew-scan-body vec)
641
 
      (mew-set-buffer-multibyte nil)
642
 
      (mew-scan-insert-line fld vec width lmsg mark)
 
629
      (when (file-exists-p file)
 
630
        (mew-set-file-modes file)
 
631
        (unless (string= folder (mew-imap-trash-folder case))
 
632
          (mew-set-file-type file))
 
633
        ;;
 
634
        (mew-set-buffer-multibyte t)
 
635
        (setq vec (mew-scan-header))
 
636
        (mew-scan-set-folder vec fld)
 
637
        (mew-scan-set-message vec msg)
 
638
        (if (and (eq directive 'scan)
 
639
                 (string= folder mew-imap-inbox-folder))
 
640
            (setq mark (mew-scan-inbox-action vec case)))
 
641
        (mew-scan-body vec)
 
642
        (mew-set-buffer-multibyte nil)
 
643
        (mew-scan-insert-line fld vec width lmsg mark))
643
644
      (mew-imap-set-rtrs pnm (cdr rtrs))
644
645
      (cond
645
646
       ((eq directive 'inc)
1161
1162
         (sshsrv (mew-imap-ssh-server case))
1162
1163
         (sslp (mew-imap-ssl case))
1163
1164
         (sslport (mew-imap-ssl-port case))
 
1165
         (proxysrv (mew-imap-proxy-server case))
 
1166
         (proxyport (mew-imap-proxy-port case))
1164
1167
         ;; dirty but necessary for migration
1165
1168
         (mailbox (unless (eq directive 'list)
1166
1169
                    (mew-imap-utf-7-encode-string
1188
1191
          (setq lport (mew-ssl-pnm-to-lport sslname))
1189
1192
          (when lport
1190
1193
            (setq process (mew-imap-open pnm mew-ssl-localhost lport no-msg)))))
 
1194
       (proxysrv
 
1195
        (setq process (mew-imap-open pnm proxysrv proxyport no-msg)))
1191
1196
       (t
1192
1197
        (setq process (mew-imap-open pnm server port no-msg))))
1193
1198
      (if (null process)