Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
What's new
10
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Open sidebar
emacs
emacs
Commits
ebdf372b
Commit
ebdf372b
authored
Apr 07, 1994
by
Karl Heuer
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
(rmail-summary-sort-by-keywords): New function.
parent
4db579ab
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
14 additions
and
1 deletion
+14
-1
lisp/mail/rmailsum.el
lisp/mail/rmailsum.el
+14
-1
No files found.
lisp/mail/rmailsum.el
View file @
ebdf372b
...
...
@@ -509,7 +509,8 @@ Commands for sorting the summary:
\\[rmail-summary-sort-by-author] Sort by author.
\\[rmail-summary-sort-by-recipient] Sort by recipient.
\\[rmail-summary-sort-by-correspondent] Sort by correspondent.
\\[rmail-summary-sort-by-lines] Sort by lines."
\\[rmail-summary-sort-by-lines] Sort by lines.
\\[rmail-summary-sort-by-keywords] Sort by keywords."
(
interactive
)
(
kill-all-local-variables
)
(
setq
major-mode
'rmail-summary-mode
)
...
...
@@ -623,6 +624,8 @@ Commands for sorting the summary:
'rmail-summary-sort-by-correspondent
)
(
define-key
rmail-summary-mode-map
"\C-c\C-s\C-l"
'rmail-summary-sort-by-lines
)
(
define-key
rmail-summary-mode-map
"\C-c\C-s\C-k"
'rmail-summary-sort-by-keywords
)
)
;;; Menu bar bindings.
...
...
@@ -1108,6 +1111,16 @@ If prefix argument REVERSE is non-nil, sort them in reverse order."
(
interactive
"P"
)
(
rmail-sort-from-summary
(
function
rmail-sort-by-lines
)
reverse
))
(
defun
rmail-summary-sort-by-keywords
(
reverse
labels
)
"Sort messages of current Rmail summary by keywords.
If prefix argument REVERSE is non-nil, sort them in reverse order.
KEYWORDS is a comma-separated list of labels."
(
interactive
"P\nsSort by labels: "
)
(
rmail-sort-from-summary
(
function
(
lambda
(
reverse
)
(
rmail-sort-by-keywords
reverse
labels
)))
reverse
))
(
defun
rmail-sort-from-summary
(
sortfun
reverse
)
"Sort Rmail messages from Summary buffer and update it after sorting."
(
require
'rmailsort
)
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment