projects
/
elisp
/
gnus.git-
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Synch to No Gnus 200406292138.
[elisp/gnus.git-]
/
lisp
/
gnus-mailcap.el
diff --git
a/lisp/gnus-mailcap.el
b/lisp/gnus-mailcap.el
index
1752cf7
..
232b019
100644
(file)
--- a/
lisp/gnus-mailcap.el
+++ b/
lisp/gnus-mailcap.el
@@
-47,7
+47,7
@@
(modify-syntax-entry ?{ "(" table)
(modify-syntax-entry ?} ")" table)
table)
(modify-syntax-entry ?{ "(" table)
(modify-syntax-entry ?} ")" table)
table)
- "A syntax table for parsing sgml attributes.")
+ "A syntax table for parsing SGML attributes.")
(eval-and-compile
(when (featurep 'xemacs)
(eval-and-compile
(when (featurep 'xemacs)
@@
-627,7
+627,7
@@
Also return non-nil if no test clause is present."
(defun mailcap-viewer-passes-test (viewer-info type-info)
"Return non-nil iff viewer specified by VIEWER-INFO passes its test clause.
(defun mailcap-viewer-passes-test (viewer-info type-info)
"Return non-nil iff viewer specified by VIEWER-INFO passes its test clause.
-Also retun non-nil if it has no test clause. TYPE-INFO is an argument
+Also return non-nil if it has no test clause. TYPE-INFO is an argument
to supply to the test."
(let* ((test-info (assq 'test viewer-info))
(test (cdr test-info))
to supply to the test."
(let* ((test-info (assq 'test viewer-info))
(test (cdr test-info))
@@
-656,7
+656,7
@@
to supply to the test."
test (list shell-file-name nil nil nil
shell-command-switch test)
status (apply 'call-process test))
test (list shell-file-name nil nil nil
shell-command-switch test)
status (apply 'call-process test))
- (= 0 status))))
+ (eq 0 status))))
(push (list otest result) mailcap-viewer-test-cache)
result)))
(push (list otest result) mailcap-viewer-test-cache)
result)))