[Emacs-diffs] Changes to emacs/lisp/gnus/gmm-utils.el,v

[Miles Bader]

CVSROOT:        /cvsroot/emacs
Module name:    emacs
Changes by:     Miles Bader <miles>     07/10/28 09:18:40

Index: lisp/gnus/gmm-utils.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/gnus/gmm-utils.el,v
retrieving revision 1.9
retrieving revision 1.10
diff -u -b -r1.9 -r1.10
--- lisp/gnus/gmm-utils.el      13 Aug 2007 13:41:18 -0000      1.9
+++ lisp/gnus/gmm-utils.el      28 Oct 2007 09:18:27 -0000      1.10
@@ -50,6 +50,19 @@
   :group 'gmm)
 
 ;;;###autoload
+(defun gmm-regexp-concat (regexp)
+  "Potentially concat a list of regexps into a single one.
+The concatenation is done with logical ORs."
+  (cond ((null regexp)
+        nil)
+       ((stringp regexp)
+        regexp)
+       ((listp regexp)
+        (mapconcat (lambda (elt) (concat "\\(" elt "\\)"))
+                   regexp
+                   "\\|"))))
+
+;;;###autoload
 (defun gmm-message (level &rest args)
   "If LEVEL is lower than `gmm-verbose' print ARGS using `message'.