Function: nnmaildir--remove-flag

nnmaildir--remove-flag is a byte-compiled function defined in nnmaildir.el.gz.

Signature

(nnmaildir--remove-flag FLAG SUFFIX)

Documentation

Return a copy of SUFFIX where FLAG is cleared.

SUFFIX should start with ":2,".

Source Code

;; Defined in /usr/src/emacs/lisp/gnus/nnmaildir.el.gz
(defun nnmaildir--remove-flag (flag suffix)
  "Return a copy of SUFFIX where FLAG is cleared.
SUFFIX should start with \":2,\"."
  (unless (string-match-p "^:2," suffix)
    (error "Invalid suffix `%s'" suffix))
  (let* ((flags (substring suffix 3))
	 (flags-as-list (append flags nil))
	 (new-flags (concat (delq flag flags-as-list))))
    (concat ":2," new-flags)))