Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Open sidebar
emacs
emacs
Commits
d2abc29a
Commit
d2abc29a
authored
Oct 08, 2010
by
Julien Danjou
Committed by
Katsumi Yamaoka
Oct 08, 2010
Browse files
gnus.el (gnus-expand-group-parameter): Only return and act on what was matched.
parent
4628bef1
Changes
2
Hide whitespace changes
Inline
Side-by-side
Showing
2 changed files
with
10 additions
and
6 deletions
+10
-6
lisp/gnus/ChangeLog
lisp/gnus/ChangeLog
+3
-0
lisp/gnus/gnus.el
lisp/gnus/gnus.el
+7
-6
No files found.
lisp/gnus/ChangeLog
View file @
d2abc29a
...
...
@@ -81,6 +81,9 @@
2010-10-06 Julien Danjou <julien@danjou.info>
* gnus.el (gnus-expand-group-parameter): Only return and act on what
was matched.
* sieve-manage.el: Update example in `Commentary'.
* sieve.el (sieve-open-server): Use sieve-manage-authenticate.
...
...
lisp/gnus/gnus.el
View file @
d2abc29a
...
...
@@ -3815,12 +3815,13 @@ You should probably use `gnus-find-method-for-group' instead."
(defun gnus-expand-group-parameter (match value group)
"Use MATCH to expand VALUE in GROUP."
(with-temp-buffer
(insert group)
(goto-char (point-min))
(while (re-search-forward match nil t)
(replace-match value))
(buffer-string)))
(let ((start (string-match match group)))
(if start
(let ((matched-string (substring group start (match-end 0))))
;; Build match groups
(string-match match matched-string)
(replace-match value nil nil matched-string))
group)))
(defun gnus-expand-group-parameters (match parameters group)
"Go through PARAMETERS and expand them according to the match data."
...
...
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