mml2015.el (mml2015-epg-sign): Add missing paren.

[gnus] / lisp / nnmairix.el

diff --git a/lisp/nnmairix.el b/lisp/nnmairix.el
index bca549a..b82d6c2 100644 (file)
--- a/lisp/nnmairix.el
+++ b/lisp/nnmairix.el
@@ -1,6 +1,6 @@
 ;;; nnmairix.el --- Mairix back end for Gnus, the Emacs newsreader
 
 ;;; nnmairix.el --- Mairix back end for Gnus, the Emacs newsreader
 

-;; Copyright (C) 2007, 2008, 2009, 2010  Free Software Foundation, Inc.
+;; Copyright (C) 2007-2011  Free Software Foundation, Inc.

 
 ;; Author: David Engster <dengste@eml.cc>
 ;; Keywords: mail searching
 
 ;; Author: David Engster <dengste@eml.cc>
 ;; Keywords: mail searching


@@ -188,17 +188,17 @@
 (defun nnmairix-summary-mode-hook ()
   "Nnmairix summary mode keymap."
   (define-key gnus-summary-mode-map
 (defun nnmairix-summary-mode-hook ()
   "Nnmairix summary mode keymap."
   (define-key gnus-summary-mode-map

-    (kbd "$ t") 'nnmairix-search-thread-this-article)
+    (kbd "G G t") 'nnmairix-search-thread-this-article)

   (define-key gnus-summary-mode-map
   (define-key gnus-summary-mode-map

-    (kbd "$ f") 'nnmairix-search-from-this-article)
+    (kbd "G G f") 'nnmairix-search-from-this-article)

   (define-key gnus-summary-mode-map
   (define-key gnus-summary-mode-map

-    (kbd "$ m") 'nnmairix-widget-search-from-this-article)
+    (kbd "G G m") 'nnmairix-widget-search-from-this-article)

   (define-key gnus-summary-mode-map
   (define-key gnus-summary-mode-map

-    (kbd "$ g") 'nnmairix-create-search-group-from-message)
+    (kbd "G G g") 'nnmairix-create-search-group-from-message)

   (define-key gnus-summary-mode-map
   (define-key gnus-summary-mode-map

-    (kbd "$ o") 'nnmairix-goto-original-article)
+    (kbd "G G o") 'nnmairix-goto-original-article)

   (define-key gnus-summary-mode-map
   (define-key gnus-summary-mode-map

-    (kbd "$ u") 'nnmairix-remove-tick-mark-original-article))
+    (kbd "G G u") 'nnmairix-remove-tick-mark-original-article))

 
 (add-hook 'gnus-group-mode-hook 'nnmairix-group-mode-hook)
 (add-hook 'gnus-summary-mode-hook 'nnmairix-summary-mode-hook)
 
 (add-hook 'gnus-group-mode-hook 'nnmairix-group-mode-hook)
 (add-hook 'gnus-summary-mode-hook 'nnmairix-summary-mode-hook)


@@ -848,8 +848,8 @@ called interactively, user will be asked for parameters."
 All necessary information will be queried from the user."
   (interactive)
   (let* ((name (read-string "Name of the mairix server: "))
 All necessary information will be queried from the user."
   (interactive)
   (let* ((name (read-string "Name of the mairix server: "))

-       (server (completing-read "Back end server (TAB for completion): "
-                                (nnmairix-get-valid-servers) nil 1))
+       (server (gnus-completing-read "Back end server"
+                                (nnmairix-get-valid-servers) t))

        (mairix (read-string "Command to call mairix: " "mairix"))
        (defaultgroup (read-string "Default search group: "))
        (backend (symbol-name (car (gnus-server-to-method server))))
        (mairix (read-string "Command to call mairix: " "mairix"))
        (defaultgroup (read-string "Default search group: "))
        (backend (symbol-name (car (gnus-server-to-method server))))


@@ -1165,7 +1165,7 @@ nnmairix server. Only marks from current session will be set."
 If SKIPDEFAULT is t, the default search group will not be
 updated.
 If UPDATEDB is t, database for SERVERNAME will be updated first."
 If SKIPDEFAULT is t, the default search group will not be
 updated.
 If UPDATEDB is t, database for SERVERNAME will be updated first."

-  (interactive (list (completing-read "Update groups on server: "
+  (interactive (list (gnus-completing-read "Update groups on server"

                                (nnmairix-get-nnmairix-servers))))
   (save-excursion
     (when (string-match ".*:\\(.*\\)" servername)
                                (nnmairix-get-nnmairix-servers))))
   (save-excursion
     (when (string-match ".*:\\(.*\\)" servername)


@@ -1302,7 +1302,7 @@ Otherwise, ask user for server."
          (while
              (equal '("")
                  (setq nnmairix-last-server
          (while
              (equal '("")
                  (setq nnmairix-last-server

-                       (list (completing-read "Server: " openedserver nil 1
+                       (list (gnus-completing-read "Server" openedserver t

                                               (or nnmairix-last-server
                                                   "nnmairix:"))))))
          nnmairix-last-server)
                                               (or nnmairix-last-server
                                                   "nnmairix:"))))))
          nnmairix-last-server)


@@ -1357,7 +1357,7 @@ If ALL is t, return also the unopened/failed ones."
                 (not (member (car server) gnus-ephemeral-servers))
                 (not (member (gnus-method-to-server (car server)) occ)))
        (push
                 (not (member (car server) gnus-ephemeral-servers))
                 (not (member (gnus-method-to-server (car server)) occ)))
        (push

-        (list mserver)
+        mserver

         openedserver)))
     openedserver))
 
         openedserver)))
     openedserver))
 


@@ -1492,10 +1492,10 @@ group."
          (when (not found)
            (setq mairixserver
                  (gnus-server-to-method
          (when (not found)
            (setq mairixserver
                  (gnus-server-to-method

-                  (completing-read
-                   (format "Cannot determine which nnmairix server indexes %s. Please specify: "
+                  (gnus-completing-read
+                   (format "Cannot determine which nnmairix server indexes %s. Please specify"

                            (gnus-method-to-server server))
                            (gnus-method-to-server server))

-                   (nnmairix-get-nnmairix-servers) nil nil "nnmairix:")))
+                   (nnmairix-get-nnmairix-servers) nil "nnmairix:")))

            ;; Save result in parameter of default search group so that
            ;; we don't have to ask again
            (setq defaultgroup (gnus-group-prefixed-name
            ;; Save result in parameter of default search group so that
            ;; we don't have to ask again
            (setq defaultgroup (gnus-group-prefixed-name


@@ -1572,14 +1572,11 @@ See %s for details" proc nnmairix-mairix-output-buffer)))
 (defun nnmairix-replace-illegal-chars (header)
   "Replace illegal characters in HEADER for mairix query."
   (when header
 (defun nnmairix-replace-illegal-chars (header)
   "Replace illegal characters in HEADER for mairix query."
   (when header

-    (if (> emacs-major-version 20)
-       (while (string-match "[^-.@/,& [:alnum:]]" header)
-         (setq header (replace-match "" t t header)))
-      (while (string-match "[[]{}:<>]" header)
-       (setq header (replace-match "" t t header))))
+    (while (string-match "[^-.@/,& [:alnum:]]" header)
+      (setq header (replace-match "" t t header)))

     (while (string-match "[-& ]" header)
       (setq header (replace-match "," t t header)))
     (while (string-match "[-& ]" header)
       (setq header (replace-match "," t t header)))

-  header))
+    header))

 
 (defun nnmairix-group-toggle-parameter (group parameter description &optional par)
   "Toggle on GROUP a certain PARAMETER.
 
 (defun nnmairix-group-toggle-parameter (group parameter description &optional par)
   "Toggle on GROUP a certain PARAMETER.


@@ -1643,9 +1640,9 @@ search in raw mode."
              (gnus-registry-add-group mid cur)))))
       (if (> (length allgroups) 1)
          (setq group
              (gnus-registry-add-group mid cur)))))
       (if (> (length allgroups) 1)
          (setq group

-               (completing-read
-                "Message exists in more than one group. Choose: "
-                allgroups nil t))
+               (gnus-completing-read
+                "Message exists in more than one group. Choose"
+                allgroups t))

        (setq group (car allgroups))))
     (if group
        ;; show article in summary buffer
        (setq group (car allgroups))))
     (if group
        ;; show article in summary buffer


@@ -1748,9 +1745,9 @@ SERVER."
             (gnus-group-prefixed-name group (car cur))
             allgroups))))
       (if (> (length allgroups) 1)
             (gnus-group-prefixed-name group (car cur))
             allgroups))))
       (if (> (length allgroups) 1)

-         (setq group (completing-read
-                      "Group %s exists on more than one IMAP server. Choose: "
-                      allgroups nil t))
+         (setq group (gnus-completing-read
+                      "Group %s exists on more than one IMAP server. Choose"
+                      allgroups t))

        (setq group (car allgroups))))
     group))
 
        (setq group (car allgroups))))
     group))