bug#34898: 24.4; `message-separator' face only works for default value of `mail-header-separator'

[Emanuel Berg]

On gmane.emacs.help, Sun, 17 Mar 2019 15:22:50 +0100,
Damien Collard wrote in Emanuel Berg's thread
"what has the face `message-separator' *really*
done for us?"

    Well, it seems to only be of effect when
    `mail-header-separator' has its default
    value "--text follows this line--".
    I checked, and

    - when it's the default separator, I can
    confirm that changing the face
    `message-separator' does change the
    separator's color.

    - when I changed `mail-header-separator' to
    "---" (or anything different from the
    default), the face `message-separator'
    doesn't apply to it anymore!

    So it's a bug.



In GNU Emacs 24.4.1 (arm-unknown-linux-gnueabihf, GTK+ Version 3.14.5)
 of 2017-09-13 on mb-lxc-01, modified by Debian
System Description:     Raspbian GNU/Linux 8.0 (jessie)

Configured using:
 `configure --build arm-linux-gnueabihf
 --prefix=/usr --sharedstatedir=/var/lib
 --libexecdir=/usr/lib --localstatedir=/var/lib
 --infodir=/usr/share/info
 --mandir=/usr/share/man --with-pop=yes
 
--enable-locallisppath=/etc/emacs24:/etc/emacs:/usr/local/share/emacs/24.4/site-lisp:/usr/local/share/emacs/site-lisp:/usr/share/emacs/24.4/site-lisp:/usr/share/emacs/site-lisp
 --build arm-linux-gnueabihf --prefix=/usr
 --sharedstatedir=/var/lib
 --libexecdir=/usr/lib --localstatedir=/var/lib
 --infodir=/usr/share/info
 --mandir=/usr/share/man --with-pop=yes
 
--enable-locallisppath=/etc/emacs24:/etc/emacs:/usr/local/share/emacs/24.4/site-lisp:/usr/local/share/emacs/site-lisp:/usr/share/emacs/24.4/site-lisp:/usr/share/emacs/site-lisp
 --with-x=yes --with-x-toolkit=gtk3
 --with-toolkit-scroll-bars 'CFLAGS=-g -O2
 -fstack-protector-strong -Wformat
 -Werror=format-security -Wall'
 CPPFLAGS=-D_FORTIFY_SOURCE=2
 LDFLAGS=-Wl,-z,relro'

Important settings:
  value of $LANG: en_GB.UTF-8
  locale-coding-system: utf-8-unix

Major mode: Article

Minor modes in effect:
  show-paren-mode: t
  shell-dirtrack-mode: t
  erc-list-mode: t
  erc-menu-mode: t
  erc-autojoin-mode: t
  erc-ring-mode: t
  erc-networks-mode: t
  erc-pcomplete-mode: t
  erc-match-mode: t
  erc-button-mode: t
  erc-fill-mode: t
  erc-stamp-mode: t
  erc-netsplit-mode: t
  erc-irccontrols-mode: t
  erc-noncommands-mode: t
  erc-move-to-prompt-mode: t
  erc-readonly-mode: t
  erc-scrolltobottom-mode: t
  electric-indent-mode: t
  mouse-wheel-mode: t
  tool-bar-mode: t
  global-font-lock-mode: t
  font-lock-mode: t
  auto-composition-mode: t
  auto-compression-mode: t
  buffer-read-only: t
  transient-mark-mode: t

Recent input:
C-p C-p C-p C-p C-p C-p C-p C-p C-p C-p C-p C-p C-p 
C-p C-n C-n C-n C-n C-n C-n C-n C-n C-n C-n C-n C-n 
C-n C-n C-n C-n C-n C-n C-n C-n C-n C-n C-n C-n C-n 
C-n C-n C-n C-n C-n C-n C-n C-n C-n C-n C-n C-o e C-n 
C-n C-n C-n C-p C-p C-p C-p C-p C-o e C-p C-p C-p C-p 
C-p C-p C-p C-p C-p C-p C-p C-p C-p C-p C-p C-p C-p 
C-p C-p C-p C-p C-p C-p C-p C-p C-p C-p C-p C-p C-p 
C-p C-p C-p C-p C-p C-p C-p C-p C-p C-p C-n C-n C-n 
C-n C-n C-n C-n C-n C-n C-n C-n C-n C-n C-n C-n C-n 
C-n C-n C-n C-n C-n C-n C-n C-n C-n C-n C-n C-n C-n 
C-n C-n C-n C-n C-n C-n C-n C-n C-n C-n C-n C-n C-n 
C-n C-n C-n C-p C-p C-p C-p C-p C-o e C-c C-c ESC x 
t o d o RET a n d r e a s SPC t SPC d a t o r RET ESC 
x d b RET ESC o ESC p ESC x r e p o r t - b u g RET 
ESC o ESC o C-g ESC o ESC x d b RET C-o i C-f C-f C-f 
C-f C-f C-f C-f C-f C-f C-f C-f C-f C-f C-f C-f C-f 
C-f C-f C-f C-f C-f C-f C-b C-b C-b C-b C-b C-@ ESC 
f ESC f ESC f ESC f ESC b ESC b ESC f C-f ESC w ESC 
x C-g C-x C-s ESC x ESC o ESC o ESC o r e b o r t C-g 
ESC o ESC x r e b o DEL DEL p o r t - b u g RET

Recent messages:
Sending email 
Sending email done
250 Message received
221 mx.zoho.eu closing connection
Mark set
Sending...done
Added to /home/incal/DO_THIS
Mark set [2 times]
Saving file /home/incal/ooa/doodle.el...
Wrote /home/incal/ooa/doodle.el

Load-path shadows:
/usr/share/emacs/24.4/site-lisp/debian-startup hides 
/usr/share/emacs/site-lisp/debian-startup
/usr/share/emacs24/site-lisp/flim/md4 hides /usr/share/emacs/24.4/lisp/md4
/usr/share/emacs24/site-lisp/flim/hex-util hides 
/usr/share/emacs/24.4/lisp/hex-util
~/.emacs.d/lisp/abbrev hides /usr/share/emacs/24.4/lisp/abbrev
~/.emacs.d/emacs-init/gnus/server hides /usr/share/emacs/24.4/lisp/server
/usr/share/emacs24/site-lisp/dictionaries-common/ispell hides 
/usr/share/emacs/24.4/lisp/textmodes/ispell
/usr/share/emacs24/site-lisp/dictionaries-common/flyspell hides 
/usr/share/emacs/24.4/lisp/textmodes/flyspell
/usr/share/emacs24/site-lisp/flim/sasl-ntlm hides 
/usr/share/emacs/24.4/lisp/net/sasl-ntlm
/usr/share/emacs24/site-lisp/flim/sasl-cram hides 
/usr/share/emacs/24.4/lisp/net/sasl-cram
/usr/share/emacs24/site-lisp/flim/ntlm hides /usr/share/emacs/24.4/lisp/net/ntlm
/usr/share/emacs24/site-lisp/flim/sasl hides /usr/share/emacs/24.4/lisp/net/sasl
/usr/share/emacs24/site-lisp/flim/hmac-def hides 
/usr/share/emacs/24.4/lisp/net/hmac-def
/usr/share/emacs24/site-lisp/flim/hmac-md5 hides 
/usr/share/emacs/24.4/lisp/net/hmac-md5
/usr/share/emacs24/site-lisp/flim/sasl-digest hides 
/usr/share/emacs/24.4/lisp/net/sasl-digest

Features:
(shadow emacsbug url-http url-gw url-cache
url-auth mailalias canlock eieio-opt speedbar
sb-image ezimage dframe find-func mail-extr
gnus-async gnus-bcklg nnir qp gnus-ml sh-script
smie executable tabify w3m-cookie pop3 nndraft
nnmh nnml gnutls network-stream starttls tls
gnus-agent nnvirtual nntp gnus-cache mule-util
cl-macs gv w3m-filter ffap paren xsel w3m-form
google-translate-core-ui ido
google-translate-core google-translate-tk url
url-proxy url-privacy url-expand url-methods
url-history url-cookie url-domsuf url-util
url-parse url-vars json time-my lpr parse-time
tramp-sh netrc term disp-table ehelp my-faces
bibtex t-mouse man tex-mode iterate-files
seq-24 isbn slime-presentations slime-repl
slime-parse bridge nroff-mode sgml-mode
cobol-mode ada-mode which-func imenu align
find-file checkdoc cc-mode cc-fonts cc-guess
cc-menus cc-cmds cc-styles cc-align cc-engine
cc-vars cc-defs guile summary message-my moggle
mail-to-many mail smtpmail sendmail global-keys
yank-my wrap-search w3m-unisearch w3m-search
spell-new ispell sort-my sort slime etags
arc-mode archive-mode noutline outline
easy-mmode hyperspec shell-cli revert-buffer-my
lisp-new ielm linux-shell kill keys help-new
debug apropos help-mode dired-x compile-my
mode-line compile article gnus-cite dl
bookmarks w3m-bookmark file-write-to erc-my
fill-new quit gnus-my group group-summary
gnus-srvr gnus-score score-mode gnus-msg
gnus-art mm-uu mml2015 mm-view mml-smime smime
dig mailcap gnus-sum nnoo gnus-group gnus-undo
nnmail mail-source gnus-start gnus-spec
gnus-int gnus-range gnus-win message rfc822 mml
mml-sec mm-decode mm-bodies mm-encode
mail-parse rfc2231 rfc2047 rfc2045 ietf-drums
mailabbrev gmm-utils mailheader gnus gnus-ems
nnheader mail-utils info slime-autoloads
package epg-config edit tabs dired-my w3m-my
w3m-tabs cus-edit cus-start cus-load
w3m-session w3m browse-url doc-view jka-compr
image-mode timezone w3m-hist w3m-fb
bookmark-w3m w3m-ems w3m-ccl ccl w3m-favicon
w3m-image w3m-proc w3m-util files-my tramp
tramp-compat tramp-loaddefs trampver shell
advice sudo-user-path find-command window-new
count get-search-string caps-back buffer-menu
switch-to-buffer super scroll error dired close
buc switch-to-buffer-regexp subr-x align-new
erc-list erc-menu easymenu erc-join erc-ring
erc-networks erc-pcomplete pcomplete comint
ansi-color ring erc-track erc-match erc-button
wid-edit erc-fill erc-stamp erc-netsplit
erc-goodies erc erc-backend erc-compat
format-spec auth-source eieio byte-opt bytecomp
byte-compile cconv eieio-core gnus-util
time-date mm-util help-fns mail-prsvr
password-cache thingatpt pp my-string
search-regexp-in-files cl-loaddefs cl-lib
w3m-load tooltip electric uniquify ediff-hook
vc-hooks lisp-float-type mwheel x-win x-dnd
tool-bar dnd fontset image regexp-opt fringe
tabulated-list newcomment lisp-mode prog-mode
register page menu-bar rfn-eshadow timer select
scroll-bar mouse jit-lock font-lock syntax
facemenu font-core frame cham georgian
utf-8-lang misc-lang vietnamese tibetan thai
tai-viet lao korean japanese hebrew greek
romanian slovak czech european ethiopic indian
cyrillic chinese case-table epa-hook
jka-cmpr-hook help simple abbrev minibuffer
nadvice loaddefs button faces cus-face macroexp
files text-properties overlay sha1 md5 base64
format env code-pages mule custom widget
hashtable-print-readable backquote
make-network-process dbusbind gfilenotify
dynamic-setting system-font-setting
font-render-setting move-toolbar gtk x-toolkit
x multi-tty emacs)

Memory information:
((conses 8 782922 127778)
 (symbols 24 51426 0)
 (miscs 20 472 2870)
 (strings 16 153409 15368)
 (string-bytes 1 4288915)
 (vectors 8 53465)
 (vector-slots 4 1639637 64486)
 (floats 8 427 1073)
 (intervals 28 8397 842)
 (buffers 512 76)
 (heap 1024 60216 7085))

-- 
underground experts united
http://user.it.uu.se/~embe8573