(defun xm:mm-cl-src-test () "Return t if xm-mm-uu-cl-decode-p and `gnus-newsgroup-name' match `xm-cl-groups'" (and xm-mm-uu-cl-decode-p gnus-newsgroup-name (string-match xm-cl-groups gnus-newsgroup-name)))
(defun xm:mm-cl-src-test () "Return t if xm-mm-uu-cl-decode-p and `gnus-newsgroup-name' match `xm-cl-groups'" (and xm-mm-uu-cl-decode-p gnus-newsgroup-name (string-match xm-cl-groups gnus-newsgroup-name)))
;;; end of lisp code
Encore le même sans balise:
(eval-after-load "mm-uu" '(mm-uu-configure))
(defun xm:mm-cl-src-test () "Return t if xm-mm-uu-cl-decode-p and `gnus-newsgroup-name' match `xm-cl-groups'" (and xm-mm-uu-cl-decode-p gnus-newsgroup-name (string-match xm-cl-groups gnus-newsgroup-name)))
(defun xm:mm-cl-src-test ()
"Return t if xm-mm-uu-cl-decode-p and `gnus-newsgroup-name' match
`xm-cl-groups'"
(and xm-mm-uu-cl-decode-p
gnus-newsgroup-name
(string-match xm-cl-groups gnus-newsgroup-name)))
(defun xm:mm-cl-src-test ()
"Return t if xm-mm-uu-cl-decode-p and `gnus-newsgroup-name' match
`xm-cl-groups'"
(and xm-mm-uu-cl-decode-p
gnus-newsgroup-name
(string-match xm-cl-groups gnus-newsgroup-name)))
;;; end of lisp code
Encore le même sans balise:
(eval-after-load "mm-uu"
'(mm-uu-configure))
(defun xm:mm-cl-src-test ()
"Return t if xm-mm-uu-cl-decode-p and `gnus-newsgroup-name' match
`xm-cl-groups'"
(and xm-mm-uu-cl-decode-p
gnus-newsgroup-name
(string-match xm-cl-groups gnus-newsgroup-name)))
(defun xm:mm-cl-src-test () "Return t if xm-mm-uu-cl-decode-p and `gnus-newsgroup-name' match `xm-cl-groups'" (and xm-mm-uu-cl-decode-p gnus-newsgroup-name (string-match xm-cl-groups gnus-newsgroup-name)))
(defun xm:mm-cl-src-test () "Return t if xm-mm-uu-cl-decode-p and `gnus-newsgroup-name' match `xm-cl-groups'" (and xm-mm-uu-cl-decode-p gnus-newsgroup-name (string-match xm-cl-groups gnus-newsgroup-name)))
;;; end of lisp code
Encore le même sans balise:
(eval-after-load "mm-uu" '(mm-uu-configure))
(defun xm:mm-cl-src-test () "Return t if xm-mm-uu-cl-decode-p and `gnus-newsgroup-name' match `xm-cl-groups'" (and xm-mm-uu-cl-decode-p gnus-newsgroup-name (string-match xm-cl-groups gnus-newsgroup-name)))
