diff options
| author | Lars Ingebrigtsen <larsi@gnus.org> | 2016-02-13 17:40:34 +1100 |
|---|---|---|
| committer | Lars Ingebrigtsen <larsi@gnus.org> | 2016-02-13 17:40:34 +1100 |
| commit | 9efc29a2dfda67c2e6b6693a6cb06a19fbdccaeb (patch) | |
| tree | 2ee4a813f66d95e3bd6d960229c9f26c4fbbd199 /lisp/gnus/nnimap.el | |
| parent | 9bcefcf0b0bcb860f432299c8e6cf109d07ee8ef (diff) | |
| download | emacs-9efc29a2dfda67c2e6b6693a6cb06a19fbdccaeb.tar.gz emacs-9efc29a2dfda67c2e6b6693a6cb06a19fbdccaeb.tar.bz2 emacs-9efc29a2dfda67c2e6b6693a6cb06a19fbdccaeb.zip | |
Remove several gnus-util compat functions
* lisp/gnus/gnus-util.el (gnus-set-process-query-on-exit-flag): Remove.
(gnus-read-shell-command): Remove.
(gnus-match-substitute-replacement): Remove.
(gnus-string-match-p): Remove.
(gnus-string-prefix-p): Remove.
Diffstat (limited to 'lisp/gnus/nnimap.el')
| -rw-r--r-- | lisp/gnus/nnimap.el | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/lisp/gnus/nnimap.el b/lisp/gnus/nnimap.el index eefe1a140b7..a53d6cd11c0 100644 --- a/lisp/gnus/nnimap.el +++ b/lisp/gnus/nnimap.el @@ -437,7 +437,7 @@ textual parts.") :success " OK " :starttls-function (lambda (capabilities) - (when (gnus-string-match-p "STARTTLS" capabilities) + (when (string-match-p "STARTTLS" capabilities) "1 STARTTLS\r\n")))) (stream (car stream-list)) (props (cdr stream-list)) @@ -459,15 +459,15 @@ textual parts.") (nnheader-report 'nnimap "Unable to contact %s:%s via %s" nnimap-address (car ports) nnimap-stream) 'no-connect) - (gnus-set-process-query-on-exit-flag stream nil) - (if (not (gnus-string-match-p "[*.] \\(OK\\|PREAUTH\\)" greeting)) + (set-process-query-on-exit-flag stream nil) + (if (not (string-match-p "[*.] \\(OK\\|PREAUTH\\)" greeting)) (nnheader-report 'nnimap "%s" greeting) ;; Store the greeting (for debugging purposes). (setf (nnimap-greeting nnimap-object) greeting) (setf (nnimap-capabilities nnimap-object) (mapcar #'upcase (split-string capabilities))) - (unless (gnus-string-match-p "[*.] PREAUTH" greeting) + (unless (string-match-p "[*.] PREAUTH" greeting) (if (not (setq credentials (if (eq nnimap-authenticator 'anonymous) (list "anonymous" |