2010-05-07 Stefan Monnier <monnier@iro.umontreal.ca>
* dns-mode.el (auto-mode-alist): Add entry for .zone files.
2010-05-07 Christian von Roques <roques@mti.ag> (tiny change)
* mml2015.el (mml2015-epg-find-usable-key): Skip disabled key (Bug#5592).
+2010-05-07 Stefan Monnier <monnier@iro.umontreal.ca>
+
+ * dns-mode.el (auto-mode-alist): Add entry for .zone files.
+
+2010-05-07 Christian von Roques <roques@mti.ag> (tiny change)
+
+ * mml2015.el (mml2015-epg-find-usable-key): Skip disabled key
+ (Bug#5592).
+
2010-05-07 Julien Danjou <julien@danjou.info>
* gnus-art.el (gnus-mime-pipe-part): Add optional argument `cmd'; pass
2010-05-07 Julien Danjou <julien@danjou.info>
* gnus-art.el (gnus-mime-pipe-part): Add optional argument `cmd'; pass
(easy-menu-add dns-mode-menu dns-mode-map))
;;;###autoload (defalias 'zone-mode 'dns-mode)
(easy-menu-add dns-mode-menu dns-mode-map))
;;;###autoload (defalias 'zone-mode 'dns-mode)
+;;;###autoload (add-to-list 'auto-mode-alist (purecopy '("\\.zone\\'" . zone-mode)))
(let ((pointer (epg-key-sub-key-list (car keys))))
(while pointer
(if (and (memq usage (epg-sub-key-capability (car pointer)))
(let ((pointer (epg-key-sub-key-list (car keys))))
(while pointer
(if (and (memq usage (epg-sub-key-capability (car pointer)))
+ (not (memq 'disabled (epg-sub-key-capability (car pointer))))
(not (memq (epg-sub-key-validity (car pointer))
'(revoked expired))))
(throw 'found (car keys)))
(not (memq (epg-sub-key-validity (car pointer))
'(revoked expired))))
(throw 'found (car keys)))