[Emacs-diffs] Changes to emacs/lisp/gnus/nnmaildir.el

[Werner LEMBERG]

Index: emacs/lisp/gnus/nnmaildir.el
diff -c emacs/lisp/gnus/nnmaildir.el:1.3 emacs/lisp/gnus/nnmaildir.el:1.4
*** emacs/lisp/gnus/nnmaildir.el:1.3    Fri Mar 18 02:49:57 2005
--- emacs/lisp/gnus/nnmaildir.el        Fri Mar 25 08:19:22 2005
***************
*** 978,984 ****
        (throw 'return nil))
        (when (save-match-data (string-match "[\0/\t]" gname))
        (setf (nnmaildir--srv-error nnmaildir--cur-server)
!             (concat "Illegal characters (null, tab, or /) in group name: "
                      gname))
        (throw 'return nil))
        (setq groups (nnmaildir--srv-groups nnmaildir--cur-server))
--- 978,984 ----
        (throw 'return nil))
        (when (save-match-data (string-match "[\0/\t]" gname))
        (setf (nnmaildir--srv-error nnmaildir--cur-server)
!             (concat "Invalid characters (null, tab, or /) in group name: "
                      gname))
        (throw 'return nil))
        (setq groups (nnmaildir--srv-groups nnmaildir--cur-server))
***************
*** 1023,1029 ****
        (throw 'return nil))
        (when (save-match-data (string-match "[\0/\t]" new-name))
        (setf (nnmaildir--srv-error nnmaildir--cur-server)
!             (concat "Illegal characters (null, tab, or /) in group name: "
                      new-name))
        (throw 'return nil))
        (if (string-equal gname new-name) (throw 'return t))
--- 1023,1029 ----
        (throw 'return nil))
        (when (save-match-data (string-match "[\0/\t]" new-name))
        (setf (nnmaildir--srv-error nnmaildir--cur-server)
!             (concat "Invalid characters (null, tab, or /) in group name: "
                      new-name))
        (throw 'return nil))
        (if (string-equal gname new-name) (throw 'return t))