978 |
(throw 'return nil)) |
(throw 'return nil)) |
979 |
(when (save-match-data (string-match "[\0/\t]" gname)) |
(when (save-match-data (string-match "[\0/\t]" gname)) |
980 |
(setf (nnmaildir--srv-error nnmaildir--cur-server) |
(setf (nnmaildir--srv-error nnmaildir--cur-server) |
981 |
(concat "Illegal characters (null, tab, or /) in group name: " |
(concat "Invalid characters (null, tab, or /) in group name: " |
982 |
gname)) |
gname)) |
983 |
(throw 'return nil)) |
(throw 'return nil)) |
984 |
(setq groups (nnmaildir--srv-groups nnmaildir--cur-server)) |
(setq groups (nnmaildir--srv-groups nnmaildir--cur-server)) |
1023 |
(throw 'return nil)) |
(throw 'return nil)) |
1024 |
(when (save-match-data (string-match "[\0/\t]" new-name)) |
(when (save-match-data (string-match "[\0/\t]" new-name)) |
1025 |
(setf (nnmaildir--srv-error nnmaildir--cur-server) |
(setf (nnmaildir--srv-error nnmaildir--cur-server) |
1026 |
(concat "Illegal characters (null, tab, or /) in group name: " |
(concat "Invalid characters (null, tab, or /) in group name: " |
1027 |
new-name)) |
new-name)) |
1028 |
(throw 'return nil)) |
(throw 'return nil)) |
1029 |
(if (string-equal gname new-name) (throw 'return t)) |
(if (string-equal gname new-name) (throw 'return t)) |