Bind RET and TAB on images for better UX.

[gnus] / lisp / nnimap.el

diff --git a/lisp/nnimap.el b/lisp/nnimap.el
index b27f072..d412af4 100644 (file)
--- a/lisp/nnimap.el
+++ b/lisp/nnimap.el
@@ -589,10 +589,11 @@ If EXAMINE is non-nil the group is selected read-only."
        (let (minuid maxuid)
          (when (> (imap-mailbox-get 'exists) 0)
            (imap-fetch "1:*" "UID" nil 'nouidfetch)
-           (imap-message-map (lambda (uid Uid)
-                               (setq minuid (if minuid (min minuid uid) uid)
-                                     maxuid (if maxuid (max maxuid uid) uid)))
-                             'UID))
+           (imap-message-map
+            (lambda (uid Uid)
+              (setq minuid (if minuid (min minuid uid) uid)
+                    maxuid (if maxuid (max maxuid uid) uid)))
+            'UID))
          (list (imap-mailbox-get 'exists) minuid maxuid))))))
 
 (defun nnimap-possibly-change-group (group &optional server)
@@ -832,13 +833,9 @@ If EXAMINE is non-nil the group is selected read-only."
     (let* ((list (progn (gnus-message 7 "Parsing authinfo file `%s'."
                                      nnimap-authinfo-file)
                        (netrc-parse nnimap-authinfo-file)))
-          (port (cond
-                 (nnimap-server-port
-                  (int-to-string nnimap-server-port))
-                 ((eq nnimap-stream 'ssl)
-                  "imaps")
-                 (t
-                  "imap")))
+          (port (if nnimap-server-port
+                    (int-to-string nnimap-server-port)
+                  "imap"))
           (auth-info
            (auth-source-user-or-password '("login" "password") server port))
           (auth-user (nth 0 auth-info))