Commit f5ec697d authored by Katsumi Yamaoka's avatar Katsumi Yamaoka

gnus-group-completing-read: Add 'substring to completion-styles for group...

gnus-group-completing-read: Add 'substring to completion-styles for group selection; imap.el, mailcap.el, message.el, mm-util.el, nnheader.el, nnmail.el, pop3.el: Remove references to outdated systems; References to win32 w32 mswindows ms-windows emx were probably cargo-culted, and are removed for clarity; By Lars Magne Ingebrigtsen <larsi@gnus.org>.
parent e17b68ed
2010-08-30 Lars Magne Ingebrigtsen <larsi@gnus.org>
* gnus-group.el (gnus-group-completing-read): Add 'substring to
completion-styles for group selection.
2009-02-04 Andreas Schwab <schwab@suse.de>
* gnus-score.el (gnus-score-string): Fix regex for matching extra
......
......@@ -2202,7 +2202,9 @@ be permanent."
The arguments are the same as `completing-read' except that COLLECTION
and HIST default to `gnus-active-hashtb' and `gnus-group-history'
respectively if they are omitted."
(let (group)
(let ((completion-styles completion-styles)
group)
(push 'substring completion-styles)
(mapatoms (lambda (symbol)
(setq group (symbol-name symbol))
(set (intern (if (string-match "[^\000-\177]" group)
......
......@@ -335,7 +335,7 @@ nil means your home directory."
:group 'mailcap)
(defvar mailcap-poor-system-types
'(ms-dos ms-windows windows-nt win32 w32 mswindows)
'(ms-dos windows-nt)
"Systems that don't have a Unix-like directory hierarchy.")
;;;
......
......@@ -5433,7 +5433,7 @@ In posting styles use `(\"Expires\" (make-expires-date 30))'."
(* 25 25)))
(let ((tm (current-time)))
(concat
(if (or (memq system-type '(ms-dos emx))
(if (or (eq system-type 'ms-dos)
;; message-number-base36 doesn't handle bigints.
(floatp (user-uid)))
(let ((user (downcase (user-login-name))))
......@@ -6451,9 +6451,7 @@ are not included."
(setq buffer-file-name (expand-file-name
(concat
(if (memq system-type
'(ms-dos ms-windows windows-nt
cygwin cygwin32 win32 w32
mswindows))
'(ms-dos windows-nt cygwin))
"message"
"*message*")
(format-time-string "-%Y%m%d-%H%M%S"))
......
......@@ -680,7 +680,7 @@ superset of iso-8859-1."
"100% binary coding system.")
(defvar mm-text-coding-system
(or (if (memq system-type '(windows-nt ms-dos ms-windows))
(or (if (memq system-type '(windows-nt ms-dos))
(and (mm-coding-system-p 'raw-text-dos) 'raw-text-dos)
(and (mm-coding-system-p 'raw-text) 'raw-text))
mm-binary-coding-system)
......@@ -692,12 +692,12 @@ superset of iso-8859-1."
(defvar mm-auto-save-coding-system
(cond
((mm-coding-system-p 'utf-8-emacs) ; Mule 7
(if (memq system-type '(windows-nt ms-dos ms-windows))
(if (memq system-type '(windows-nt ms-dos))
(if (mm-coding-system-p 'utf-8-emacs-dos)
'utf-8-emacs-dos mm-binary-coding-system)
'utf-8-emacs))
((mm-coding-system-p 'emacs-mule)
(if (memq system-type '(windows-nt ms-dos ms-windows))
(if (memq system-type '(windows-nt ms-dos))
(if (mm-coding-system-p 'emacs-mule-dos)
'emacs-mule-dos mm-binary-coding-system)
'emacs-mule))
......
......@@ -77,7 +77,7 @@ Integer values will in effect be rounded up to the nearest multiple of
"*Length of each read operation when trying to fetch HEAD headers.")
(defvar nnheader-read-timeout
(if (string-match "windows-nt\\|os/2\\|emx\\|cygwin"
(if (string-match "windows-nt\\|os/2\\|cygwin"
(symbol-name system-type))
;; http://thread.gmane.org/v9655t3pjo.fsf@marauder.physik.uni-ulm.de
;;
......@@ -102,7 +102,7 @@ Shorter values mean quicker response, but are more CPU intensive.")
(defvar nnheader-file-name-translation-alist
(let ((case-fold-search t))
(cond
((string-match "windows-nt\\|os/2\\|emx\\|cygwin"
((string-match "windows-nt\\|os/2\\|cygwin"
(symbol-name system-type))
(append (mapcar (lambda (c) (cons c ?_))
'(?: ?* ?\" ?< ?> ??))
......@@ -786,8 +786,7 @@ If FULL, translate everything."
;; We translate -- but only the file name. We leave the directory
;; alone.
(if (and (featurep 'xemacs)
(memq system-type '(cygwin32 win32 w32 mswindows windows-nt
cygwin)))
(memq system-type '(windows-nt cygwin)))
;; This is needed on NT and stuff, because
;; file-name-nondirectory is not enough to split
;; file names, containing ':', e.g.
......
......@@ -265,7 +265,7 @@ It scans low-level sorted spools even when not required."
:type 'function)
(defcustom nnmail-crosspost-link-function
(if (string-match "windows-nt\\|emx" (symbol-name system-type))
(if (string-match "windows-nt" (symbol-name system-type))
'copy-file
'add-name-to-file)
"*Function called to create a copy of a file.
......
......@@ -120,7 +120,7 @@ Used for APOP authentication.")
(defalias 'pop3-accept-process-output 'nnheader-accept-process-output)
;; Borrowed from `nnheader.el':
(defvar pop3-read-timeout
(if (string-match "windows-nt\\|os/2\\|emx\\|cygwin"
(if (string-match "windows-nt\\|os/2\\|cygwin"
(symbol-name system-type))
1.0
0.01)
......
......@@ -267,7 +267,7 @@ See also `imap-log'."
:type 'string)
(defcustom imap-read-timeout (if (string-match
"windows-nt\\|os/2\\|emx\\|cygwin"
"windows-nt\\|os/2\\|cygwin"
(symbol-name system-type))
1.0
0.1)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment