* fix some fallout from recent changes
This commit is contained in:
@ -620,7 +620,7 @@ FUNC (if non-nil) afterwards."
|
||||
"Stop the mu4e session."
|
||||
(when mu4e-update-timer
|
||||
(cancel-timer mu4e-update-timer)
|
||||
(setq
|
||||
(setq
|
||||
mu4e-update-timer nil
|
||||
mu4e~maildir-list nil))
|
||||
(mu4e~proc-kill)
|
||||
@ -742,21 +742,21 @@ This includes expanding e.g. 3-5 into 3,4,5. If the letter
|
||||
(if (string-match "\\([0-9]+\\)-\\([0-9]+\\)" elem)
|
||||
;; we have found a range A-B, which needs converting
|
||||
;; into the numbers A, A+1, A+2, ... B.
|
||||
(progn
|
||||
(setq beg (string-to-int (match-string 1 elem))
|
||||
(progn
|
||||
(setq beg (string-to-number (match-string 1 elem))
|
||||
end (string-to-number (match-string 2 elem)))
|
||||
(while (<= beg end)
|
||||
(add-to-list 'list beg 'append)
|
||||
(setq beg (1+ beg))))
|
||||
;; else just a number
|
||||
;; else just a number
|
||||
(add-to-list 'list (string-to-number elem) 'append)))
|
||||
;; Check that all numbers are valid.
|
||||
(mapc
|
||||
'(lambda (x)
|
||||
(cond
|
||||
((> x n)
|
||||
(error "Attachment %d bigger than maximum (%d)" x n))
|
||||
((< x 1)
|
||||
(mapc
|
||||
#'(lambda (x)
|
||||
(cond
|
||||
((> x n)
|
||||
(error "Attachment %d bigger than maximum (%d)" x n))
|
||||
((< x 1)
|
||||
(error "Attachment number must be greater than 0 (%d)" x))))
|
||||
list)))
|
||||
|
||||
|
||||
Reference in New Issue
Block a user