Lines Matching refs:gname
191 (defun nnmaildir--pgname (server gname)
193 (if prefix (concat prefix gname)
194 (setq gname (gnus-group-prefixed-name gname
196 (setf (nnmaildir--srv-prefix server) (gnus-group-real-prefix gname))
197 gname)))
223 (defmacro nnmaildir--srvgrp-dir (srv-dir gname)
224 `(nnmaildir--subdir ,srv-dir ,gname))
294 dir gname pgname msgdir prefix suffix file attr mtime novdir novfile
298 (setq gname (nnmaildir--grp-name group)
299 pgname (nnmaildir--pgname server gname)
300 dir (nnmaildir--srvgrp-dir srv-dir gname)
658 (defun nnmaildir--scan (gname scan-msgs groups method srv-dir srv-ls)
663 (setq absdir (nnmaildir--srvgrp-dir srv-dir gname)
678 (setq group (nnmaildir--prepare nil gname)
679 pgname (nnmaildir--pgname nnmaildir--cur-server gname))
683 group (make-nnmaildir--grp :name gname :index 0))
749 (set (intern gname groups) group))
861 (lambda (gname)
862 (setq group (nnmaildir--prepare nil gname))
871 (insert " " gname "\n")))
875 (defun nnmaildir-request-update-info (gname info &optional server)
876 (let ((group (nnmaildir--prepare server gname))
883 (concat "No such group: " gname))
885 (setq gname (nnmaildir--grp-name group)
886 pgname (nnmaildir--pgname nnmaildir--cur-server gname)
904 dir (nnmaildir--srvgrp-dir dir gname)
944 (defun nnmaildir-request-group (gname &optional server fast)
945 (let ((group (nnmaildir--prepare server gname))
951 (concat "No such group: " gname))
964 (insert " " gname "\n")
967 (defun nnmaildir-request-create-group (gname &optional server args)
972 (when (zerop (length gname))
976 (when (eq (aref "." 0) (aref gname 0))
980 (when (save-match-data (string-match "[\0/\t]" gname))
983 gname))
986 (when (intern-soft gname groups)
988 (concat "Group already exists: " gname))
996 (setq dir (nnmaildir--subdir dir gname))
1002 (make-symbolic-link (concat target-prefix gname)
1003 (concat srv-dir gname)))
1006 (defun nnmaildir-request-rename-group (gname new-name &optional server)
1007 (let ((group (nnmaildir--prepare server gname))
1015 (concat "No such group: " gname))
1030 (if (string-equal gname new-name) (throw 'return t))
1038 (rename-file (concat srv-dir gname)
1057 (defun nnmaildir-request-delete-group (gname force &optional server)
1058 (let ((group (nnmaildir--prepare server gname))
1063 (concat "No such group: " gname))
1065 (setq gname (nnmaildir--grp-name group)
1066 pgname (nnmaildir--pgname nnmaildir--cur-server gname)
1068 target (car (file-attributes (concat grp-dir gname)))
1069 grp-dir (nnmaildir--srvgrp-dir grp-dir gname))
1072 (concat "Not a symlink: " gname))
1076 (unintern gname (nnmaildir--srv-groups nnmaildir--cur-server))
1111 (defun nnmaildir-retrieve-headers (articles &optional gname server fetch-old)
1112 (let ((group (nnmaildir--prepare server gname))
1126 gname ":")
1132 (if gname (concat "No such group: " gname) "No current group"))
1138 gname (nnmaildir--grp-name group)
1140 dir (nnmaildir--srvgrp-dir srv-dir gname))
1166 (defun nnmaildir-request-article (num-msgid &optional gname server to-buffer)
1167 (let ((group (nnmaildir--prepare server gname))
1173 (if gname (concat "No such group: " gname) "No current group"))
1193 (setq gname (nnmaildir--grp-name group)
1194 pgname (nnmaildir--pgname nnmaildir--cur-server gname)
1196 dir (nnmaildir--srvgrp-dir dir gname)
1212 (cons gname num-msgid))))
1218 (defun nnmaildir-request-replace-article (number gname buffer)
1219 (let ((group (nnmaildir--prepare nil gname))
1227 (concat "No such group: " gname))
1229 (when (nnmaildir--param (nnmaildir--pgname nnmaildir--cur-server gname)
1235 dir (nnmaildir--srvgrp-dir dir gname)
1256 (defun nnmaildir-request-move-article (article gname server accept-form
1258 (let ((group (nnmaildir--prepare server gname))
1263 (concat "No such group: " gname))
1265 (setq gname (nnmaildir--grp-name group)
1266 pgname (nnmaildir--pgname nnmaildir--cur-server gname)
1273 nnmaildir--file (nnmaildir--srvgrp-dir nnmaildir--file gname)
1294 (defun nnmaildir-request-accept-article (gname &optional server last)
1295 (let ((group (nnmaildir--prepare server gname))
1303 (concat "No such group: " gname))
1305 (setq gname (nnmaildir--grp-name group))
1306 (when (nnmaildir--param (nnmaildir--pgname nnmaildir--cur-server gname)
1309 (concat "Read-only group: " gname))
1312 dir (nnmaildir--srvgrp-dir srv-dir gname)
1359 (cons gname (nnmaildir--art-num article))))))
1365 (let (ga gname x groups nnmaildir--file deactivate-mark)
1374 gname (car ga))
1375 (or (intern-soft gname groups)
1376 (nnmaildir-request-create-group gname)
1378 (unless (nnmaildir-request-accept-article gname)
1381 nnmaildir--file (nnmaildir--srvgrp-dir nnmaildir--file gname)
1382 x (nnmaildir--prepare nil gname)
1391 (setq gname (car ga))
1392 (and (or (intern-soft gname groups)
1393 (nnmaildir-request-create-group gname))
1394 (nnmaildir-request-accept-article gname)
1398 (defun nnmaildir-active-number (gname)
1401 (defun nnmaildir-request-expire-articles (ranges &optional gname server force)
1403 (group (nnmaildir--prepare server gname))
1410 (if gname (concat "No such group: " gname) "No current group"))
1412 (setq gname (nnmaildir--grp-name group)
1413 pgname (nnmaildir--pgname nnmaildir--cur-server gname))
1419 (funcall nnmail-expiry-wait-function gname))
1437 dir (nnmaildir--srvgrp-dir dir gname)
1482 (defun nnmaildir-request-set-mark (gname actions &optional server)
1483 (let ((group (nnmaildir--prepare server gname))
1524 (concat "No such group: " gname))
1531 marksdir (nnmaildir--srvgrp-dir marksdir gname)
1535 gname (nnmaildir--grp-name group)
1536 pgname (nnmaildir--pgname nnmaildir--cur-server gname)
1553 (defun nnmaildir-close-group (gname &optional server)
1554 (let ((group (nnmaildir--prepare server gname))
1559 (concat "No such group: " gname))
1561 (setq pgname (nnmaildir--pgname nnmaildir--cur-server gname)
1564 dir (nnmaildir--srvgrp-dir dir gname)