🚀 go-pugleaf

��������ǰ�ᵽ��֪��λ�ֵ��Ƿ��Ѿ��㶨���⼸���ϲ��� cn99��������ʱ��
����������һ�� Gnus���ҵ���������� header��

        ��>>>>>>  somebody <somebody@some.where> writes:��

������� .gnus.el ������룺

  (setq sc-electric-references-p t)

�����ӵ�ʱ��ת��һ�� *sc-erefs* buffer�����ﰴ n/p ����ѡ���ָ�ʽ����
h����������Ϣ�����е�ѡ���ɱ��� sc-rewrite-header-list �еĺ����б��
ȱʡ��ʹ���ɱ��� sc-preferred-header-style ָ�����Ǹ�����

================================================================

������趨����ɫ�� header���Լ�д�� lisp ����

  (defun my-sc-header-writes ()
    "\"<from>������<subject>��˵����\""
    (let ((sc-mumble "")
        (whofrom (sc-whofrom)));(sc-mail-field "from")
      (if whofrom
        (insert sc-reference-tag-string
                whofrom
                (sc-hdr "������" (sc-mail-field "subject") "��")
                "˵����\n"))))

���� sc-rewrite-header-list ��

  (add-hook 'sc-load-hook
          '(lambda () 
               (add-to-list 'sc-rewrite-header-list '(my-sc-header-writes))))

ȱʡʹ���Լ������ my-sc-header-writes ��

  (setq sc-preferred-header-style 0)

ȱʡ�ľ����Լ������ header �ˣ���ϲ��ÿ�ζ����� *sc-erefs* buffer ѡ��
��ǰ��� (setq sc-electric-references-p t) ȥ�����߸�Ϊ nil��

,----[ C-h v sc-rewrite-header-list RET ]
| sc-rewrite-header-list's value is shown below.
| 
| *List of reference header rewrite functions.
| The variable `sc-preferred-header-style' controls which function in
| this list is chosen for automatic reference header insertions.
| Electric reference mode will cycle through this list of functions.
| 
| You can customize this variable.
| 
| Defined in `supercite'.
| 
| Value:
| ((my-sc-header-writes)
|  (sc-no-header)
|  (sc-header-on-said)
|  (sc-header-inarticle-writes)
|  (sc-header-regarding-adds)
|  (sc-header-attributed-writes)
|  (sc-header-author-writes)
|  (sc-header-verbose)
|  (sc-no-blank-line-or-header))
| 
| [back]
`----


-- 
 ~~һ�쵽��~�����~~
email: (rot13 "qqqxx@fvan.pbz")