← Back to branch summary

~vm/vm/vmpc-prompt

« back to all changes in this revision

Viewing changes to lisp/vm-imap.el

  • Committer: Uday S Reddy
  • Date: 2011-12-07 11:18:17 UTC
  • Revision ID: u.s.reddy@cs.bham.ac.uk-20111207111817-iu2pygr3d9szwxk0
Changed vm-inform 0 to vm-warn 0 calls.

Show diffs side-by-side

added added

removed removed

Lines of Context:
lisp/vm-imap.el
321
321
        (when (not (equal (current-buffer) buf))
322
322
          (when (string-lessp "24" emacs-version)
323
323
            ;; the Emacs bug should have been fixed in version 24
324
 
            (vm-inform 0 
 
324
            (vm-warn 0 2 
325
325
             "Emacs process output error: Buffer changed to %s" 
326
326
             (current-buffer)))
327
327
          ;; recover from the bug
764
764
                        (error
765
765
                         (if (cdr error-data)
766
766
                             (apply 'message (cdr error-data))
767
 
                           (vm-inform 0
 
767
                           (vm-warn 0 2
768
768
                            "Couldn't open IMAP session to %s, skipping..."
769
769
                            folder))
770
770
                         (setq trouble (cons folder trouble))
771
 
                         (sleep-for 2)
772
771
                         (while (equal (nth 1 (car mp)) source)
773
772
                           (setq mp (cdr mp)))
774
773
                         (throw 'replay t)))
785
784
                      (vm-increment delete-count)))
786
785
                (error
787
786
                 (setq trouble (cons folder trouble))
788
 
                 (vm-inform 0 "Something signaled: %s"
 
787
                 (vm-warn 0 2 "Something signaled: %s"
789
788
                          (prin1-to-string error-data))
790
 
                 (sleep-for 2)
791
789
                 (vm-inform 0 "Skipping rest of mailbox %s..." folder)
792
790
                 (sleep-for 2)
793
791
                 (while (equal (nth 2 (car mp)) source)
1076
1074
        (setq pass
1077
1075
              (read-passwd (format "IMAP password for %s: " folder)))
1078
1076
        (when (equal pass "")
1079
 
            (vm-inform 0 "Password cannot be empty")
1080
 
            (sit-for 2)
 
1077
            (vm-warn 0 2 "Password cannot be empty")
1081
1078
            (setq pass nil)))
1082
1079
      (when (null pass)
1083
1080
        (error "Need password for %s for %s" folder purpose)))
1139
1136
                                                       imap-buffer
1140
1137
                                                       host port))))
1141
1138
                (error
1142
 
                 (vm-inform 0 "%s" (error-message-string err))
 
1139
                 (vm-warn 0 2 "%s" (error-message-string err))
1143
1140
                 (setq shutdown t)
1144
1141
                 (throw 'end-of-session nil))))
1145
1142
            (setq shutdown t)
3284
3281
                   (setq r-list (cdr r-list)
3285
3282
                         n (+ n (1+ (- (cdr range) (car range)))))))
3286
3283
             (vm-imap-normal-error      ; handler
3287
 
              (vm-inform 0 "IMAP error: %s" (cadr error-data)))
 
3284
              (vm-warn 0 2 "IMAP error: %s" (cadr error-data)))
3288
3285
             (vm-imap-protocol-error    ; handler
3289
 
              (vm-inform 0 "Retrieval from %s signaled: %s" folder
 
3286
              (vm-warn 0 2 "Retrieval from %s signaled: %s" folder
3290
3287
                         error-data))
3291
3288
             ;; Continue with whatever messages have been read
3292
3289
             (quit
3446
3443
                (vm-inform 6 "Expunging messages on the server... done")))
3447
3444
 
3448
3445
          (vm-imap-normal-error         ; handler
3449
 
           (vm-inform 0 "IMAP error: %s" (cadr error-data)))
 
3446
           (vm-warn 0 2 "IMAP error: %s" (cadr error-data)))
3450
3447
 
3451
3448
          (vm-imap-protocol-error       ; handler
3452
 
           (vm-inform 0 "Expunge from %s signalled: %s"
 
3449
           (vm-warn 0 2 "Expunge from %s signalled: %s"
3453
3450
                      folder error-data))
3454
3451
          (quit                         ; handler
3455
3452
           (error "Quit received during expunge from %s"
3585
3582
                        (vm-imap-read-ok-response process)
3586
3583
                        t)
3587
3584
                    (vm-imap-normal-error ; handler
3588
 
                     (vm-inform 0 "IMAP error: %s" (cadr error-data))
 
3585
                     (vm-warn 0 2 "IMAP error: %s" (cadr error-data))
3589
3586
                     nil)
3590
3587
                    (vm-imap-protocol-error ; handler
3591
 
                     (vm-inform 0 "Retrieval from %s signaled: %s" folder
 
3588
                     (vm-warn 0 2 "Retrieval from %s signaled: %s" folder
3592
3589
                              error-data)
3593
3590
                     nil
3594
3591
                     ;; Continue with whatever messages have been read