mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-23 18:47:57 +00:00
Code Issues Releases Activity

(mh-folder-expand-at-point): Fix folder completion. Folders returned

Browse Source 
by mh-folder-completion-function no longer need adornment (closes SF
#1476270).
This commit is contained in:
Bill Wohler 2006-04-25 21:41:13 +00:00
parent 51d793dabf
commit 6a7250d806
2 changed files with 10 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
lisp/mh-e/ChangeLog
View File

@ -1,3 +1,9 @@
2006-04-25 Bill Wohler <wohler@newt.com>
* mh-letter.el (mh-folder-expand-at-point): Fix folder completion.
Folders returned by mh-folder-completion-function no longer need
adornment (closes SF #1476270).
2006-04-21 Bill Wohler <wohler@newt.com>
* mh-e.el (Version, mh-version): Add +cvs to version.

11
lisp/mh-e/mh-letter.el
View File

@ -866,15 +866,12 @@ downcasing the field name."
"Do folder name completion in Fcc header field."
(let* ((end (point))
(beg (mh-beginning-of-word))
(folder (buffer-substring beg end))
(folder (buffer-substring-no-properties beg end))
(leading-plus (and (> (length folder) 0) (equal (aref folder 0) ?+)))
(last-slash (mh-search-from-end ?/ folder))
(prefix (and last-slash (substring folder 0 last-slash)))
(choices (mapcar #'(lambda (x)
(list (cond (prefix (format "%s/%s" prefix x))
(leading-plus (format "+%s" x))
(t x))))
(choices (mapcar (lambda (x) (list x))
(mh-folder-completion-function folder nil t))))
(unless leading-plus
(setq folder (concat "+" folder)))
(mh-complete-word folder choices beg end)))
;;;###mh-autoload