flag
&optional is-local)
(when (eq flag (elmo-flag-folder-flag-internal folder))
- (error "Cannot unset flag `%s' in this folder." flag)))
+ (error "Cannot unset flag `%s' in this folder" flag)))
;;; Utilities
(defsubst elmo-global-flag-set-internal (flag folder number message-id)
(when (elmo-local-flag-p flag)
- (error "Cannot treat `%s' as global flag." flag))
+ (error "Cannot treat `%s' as global flag" flag))
(when message-id
(let ((flag-folder (elmo-flag-get-folder flag))
cache new-file new-number elem)
(cons
elmo-spam-spamassassin-learn-program
elmo-spam-spamassassin-learn-program-arguments))
- (t (error "Internal error.")))))
+ (t (error "Internal error")))))
(apply #'call-process-region
(point-min) (point-max)
(car pair)