annotate admin/make-changelog-diff @ 102087:d6de2e3c19e8

(rmail-summary-mode-map): Remove unneeded declaration. (top-level): No need for cl now. (rmail-spam-filter, rmail-use-spam-filter, rsf-file, rsf-no-blind-cc) (rsf-beep, rsf-sleep-after-message, rsf-min-region-to-spam-list) (rsf-autosave-newly-added-definitions, rsf-white-list) (rsf-definitions-alist, rsf-check-field, rsf-add-subject-to-spam-list) (rsf-add-sender-to-spam-list, rsf-add-region-to-spam-list) (rsf-customize-spam-definitions, rsf-customize-group) (rsf-custom-save-all, rsf-add-content-type-field): Doc fixes. (rsf-check-field): Use setcar and setcdr rather than setf. (rmail-spam-filter): Simplify. (rsf-add-subject-to-spam-list, rsf-add-sender-to-spam-list) (rsf-add-region-to-spam-list): Use rmail-get-header or buffer-substring-no-properties. Regexp-quote the extracted data. Make the messages less verbose. (rmail-summary-mode-map, rmail-mode-map): Use easy-menu and dolist to simplify things. (rsf-add-content-type-field): Make the message less verbose.
author Glenn Morris <rgm@gnu.org>
date Wed, 18 Feb 2009 04:33:30 +0000
parents 3e136d0943a4
children 52a7f3f50b89 ef719132ddfa
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
49682
7acb008e4f73 make-changelog-diff REL1 REL2
Francesco Potort? <pot@gnu.org>
parents:
diff changeset
1 #! /bin/bash
7acb008e4f73 make-changelog-diff REL1 REL2
Francesco Potort? <pot@gnu.org>
parents:
diff changeset
2
75649
3e136d0943a4 Add author.
Glenn Morris <rgm@gnu.org>
parents: 52401
diff changeset
3 ## Author: Francesco Potorti` <pot@gnu.org>
3e136d0943a4 Add author.
Glenn Morris <rgm@gnu.org>
parents: 52401
diff changeset
4
49682
7acb008e4f73 make-changelog-diff REL1 REL2
Francesco Potort? <pot@gnu.org>
parents:
diff changeset
5 if [ $# -ne 2 ]; then
7acb008e4f73 make-changelog-diff REL1 REL2
Francesco Potort? <pot@gnu.org>
parents:
diff changeset
6 echo "usage: $0 TAG1 TAG2" >&2
7acb008e4f73 make-changelog-diff REL1 REL2
Francesco Potort? <pot@gnu.org>
parents:
diff changeset
7 exit 1
7acb008e4f73 make-changelog-diff REL1 REL2
Francesco Potort? <pot@gnu.org>
parents:
diff changeset
8 fi
7acb008e4f73 make-changelog-diff REL1 REL2
Francesco Potort? <pot@gnu.org>
parents:
diff changeset
9
7acb008e4f73 make-changelog-diff REL1 REL2
Francesco Potort? <pot@gnu.org>
parents:
diff changeset
10 if [ ! -f INSTALL -o ! -f configure -o ! -d lib-src ]; then
7acb008e4f73 make-changelog-diff REL1 REL2
Francesco Potort? <pot@gnu.org>
parents:
diff changeset
11 echo "this script should be run in the emacs root directory" >&2
7acb008e4f73 make-changelog-diff REL1 REL2
Francesco Potort? <pot@gnu.org>
parents:
diff changeset
12 exit 2
7acb008e4f73 make-changelog-diff REL1 REL2
Francesco Potort? <pot@gnu.org>
parents:
diff changeset
13 fi
7acb008e4f73 make-changelog-diff REL1 REL2
Francesco Potort? <pot@gnu.org>
parents:
diff changeset
14
7acb008e4f73 make-changelog-diff REL1 REL2
Francesco Potort? <pot@gnu.org>
parents:
diff changeset
15 cvs -q diff -b -r $1 -r $2 $(find -name ChangeLog|sort) |
7acb008e4f73 make-changelog-diff REL1 REL2
Francesco Potort? <pot@gnu.org>
parents:
diff changeset
16 sed -n -e 's/^=\+/======/p' -e 's/^> //p' -e 's/^diff.*//p' \
7acb008e4f73 make-changelog-diff REL1 REL2
Francesco Potort? <pot@gnu.org>
parents:
diff changeset
17 -e 's/^RCS file: .cvsroot.emacs.emacs.\(.*\),v/\1/p' |
7acb008e4f73 make-changelog-diff REL1 REL2
Francesco Potort? <pot@gnu.org>
parents:
diff changeset
18 sed -n -e "/^======$/ {
7acb008e4f73 make-changelog-diff REL1 REL2
Francesco Potort? <pot@gnu.org>
parents:
diff changeset
19 N
7acb008e4f73 make-changelog-diff REL1 REL2
Francesco Potort? <pot@gnu.org>
parents:
diff changeset
20 N
7acb008e4f73 make-changelog-diff REL1 REL2
Francesco Potort? <pot@gnu.org>
parents:
diff changeset
21 h
7acb008e4f73 make-changelog-diff REL1 REL2
Francesco Potort? <pot@gnu.org>
parents:
diff changeset
22 d
7acb008e4f73 make-changelog-diff REL1 REL2
Francesco Potort? <pot@gnu.org>
parents:
diff changeset
23 }
7acb008e4f73 make-changelog-diff REL1 REL2
Francesco Potort? <pot@gnu.org>
parents:
diff changeset
24 H
7acb008e4f73 make-changelog-diff REL1 REL2
Francesco Potort? <pot@gnu.org>
parents:
diff changeset
25 s/.*//
7acb008e4f73 make-changelog-diff REL1 REL2
Francesco Potort? <pot@gnu.org>
parents:
diff changeset
26 x
7acb008e4f73 make-changelog-diff REL1 REL2
Francesco Potort? <pot@gnu.org>
parents:
diff changeset
27 s/^\n//
7acb008e4f73 make-changelog-diff REL1 REL2
Francesco Potort? <pot@gnu.org>
parents:
diff changeset
28 p"
52401
695cf19ef79e Add arch taglines
Miles Bader <miles@gnu.org>
parents: 49682
diff changeset
29
695cf19ef79e Add arch taglines
Miles Bader <miles@gnu.org>
parents: 49682
diff changeset
30 # arch-tag: 7604a259-40b4-4f97-86b2-496a9c546f0a