mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 10:30:25 -08:00
Code Issues Projects Releases Wiki Activity

Obsolete gnus-copy-sequence and gnus-last-element

Browse source 
(Bug#28856, Bug#28867)

* lisp/gnus/gnus-range.el: Leave gnus-last-element in place, but
  obsolete it and point to car of last. Remove gnus-copy-sequence and
  define as an obsolete alias for copy-tree.
  (gnus-remove-from-range):
* lisp/gnus/gnus-cache.el (gnus-cache-generate-active):
* lisp/gnus/gnus-sum.el (gnus-summary-insert-articles,
  gnus-select-newsgroup, gnus-summary-read-group-1,
  gnus-select-newsgroup, gnus-update-marks,
  gnus-summary-insert-articles, gnus-summary-insert-new-articles):
  Replace calls in these locations.
* lisp/gnus/gnus-agent.el (gnus-agent-catchup,
  gnus-agent-summary-fetch-series, gnus-category-copy):
* lisp/gnus/gnus-cus.el (gnus-group-customize):
* lisp/gnus/gnus-group.el (gnus-group-edit-group-done,
  gnus-group-make-useful-group):
* lisp/gnus/gnus-score.el (gnus-score-adaptive):
* lisp/gnus/gnus-srvr.el (gnus-server-copy-server): Replace calls in
  these locations.
This commit is contained in:
Eric Abrahamsen 2017-05-09 19:17:29 +08:00
parent d1000fb48b
commit e27004c5fe
9 changed files with 18 additions and 27 deletions
Download patch file Download diff file Expand all files Collapse all files

2
lisp/gnus/gnus-score.el
View file

@ -2318,7 +2318,7 @@ score in `gnus-newsgroup-scored' by SCORE."
(when (or (not (listp gnus-newsgroup-adaptive))
(memq 'line gnus-newsgroup-adaptive))
(save-excursion
(let* ((malist (gnus-copy-sequence gnus-adaptive-score-alist))
(let* ((malist (copy-tree gnus-adaptive-score-alist))
(alist malist)
(date (current-time-string))
(data gnus-newsgroup-data)