1/* This file is part of Mailfromd. -*- c -*- 2 Copyright (C) 2015-2021 Sergey Poznyakoff 3 4 This program is free software; you can redistribute it and/or modify 5 it under the terms of the GNU General Public License as published by 6 the Free Software Foundation; either version 3, or (at your option) 7 any later version. 8 9 This program is distributed in the hope that it will be useful, 10 but WITHOUT ANY WARRANTY; without even the implied warranty of 11 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the 12 GNU General Public License for more details. 13 14 You should have received a copy of the GNU General Public License 15 along with this program. If not, see <http://www.gnu.org/licenses/>. */ 16 17MF_BUILTIN_MODULE 18 19MF_DEFUN(set_from, VOID, STRING addr, OPTIONAL, STRING args) 20{ 21 struct mu_locus_range locus; 22 23 env_get_locus(env, &locus); 24 25 trace("%s%s:%u: %s %s", 26 mailfromd_msgid(env_get_context(env)), 27 locus.beg.mu_file, locus.beg.mu_line, 28 msgmod_opcode_str(set_from), 29 addr); 30 env_msgmod_append(env, set_from, addr, MF_OPTVAL(args, NULL), 0); 31} 32END 33 34